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Amusewous avec voire Apple ll 



La program mat ion est un jeu. Je ne 
cesse de le repeter depuis la creation 
de TREMPUN MICRO. Un jeu captivant 
en d table, ma is qui exige une concen- 
tration d'esprit peu commune. Quand 
on programme, tout est dans la pen- 
see, de la premiere a la derniere ins- 
truction, Logique et memoire sonf solli- 
citees a chaque instant. Bref, on ne 
pense plus qu'a lobjectif numero un : 
obtenir, lors du run final, le resultat 
attendu. 

La programmation passe evidemment 
par I 'etude d'un langage, voire par celle 
de plusieurs langages. Nul ne me 
dementtra si je pretends que cette etude 
constitue elle-meme un jeu extraordi- 
naire. Et puis, par I'intermediaire de ces 
langages, n'avons-nous pas la possibilite 
de communiquer avec des partenaires 
du monde entier... grace d un nombre 
I i mite de mots-clefs ? 



Nouveaux lan gages 

Je sais que bon nombre de nos Lec trices 
et Lecteurs s'interessent de plus en plus 
au langage C ■ Nous alfons evidemment 
poursuivre notre patiente initiation, 
mais nous rencontrons encore des diffi- 
cultes lorsqu'il s'agit d' adapter le C des 
IBM et clones sur notre GS. Souhaitons 
que fes nouvelles versions de I'APWC 
soient plus compatibles, ll reste que 
le € est un langage portable par excel- 
lence et que son apprentissage est 
actuellement conseille sur toutes les 
machines, 

Le GS Basic nous donne satisfaction, 
meme si I comporte encore quelques 
points noirs. Vous le decouvrirez plus 
facilement avec f'excellent guide de 
notre ami Em He SCHWARZ (voir notre 
bulletin de commande). Ce livre ne vous 



sera utile que si vous disposez deja de la 
documentation americaine et du logiciel 
(diffuseur : DDA). 

On ne saurait concevoir de programma- 
tion serieuse sur le GS sans passer par 
un langage au mains aussi performant 
que le GS Basic (qui! sera possible de 
compiler). 

Applesoft et Assembleur 

Le bon vieil Applesoft reste le Basic 
facile par excellence. Son adaptation ne 
pose aucun probleme sur une autre 
machine... si Ion se dispense d'utiliser 
les acces directs a la memoire. 

II autorise moult fantaisies et permet de 
programmer n'importe quelle application. 
On peut lui reprocher sa lenteur (le GS 
Basic ne fait pas mieux I), mats il est facile 
de I'accelerer en utilisont ki et la quelques 
petites routines en Assembleur. 

D'ou la nScessite de comprendre le 
langage machine. 

let, a Tremplin Micro, nous avons 
deploye des tresors d'imagination pour 
aider les neophytes (mais aussi ceux 
qui n'en sont plus) a resoudre des 
dizaines de petits problemes en lan- 
gage machine. 

Nos recueils de routines (avec disquettes 
associees) constituent une base serieuse 
et meme indispensable a tout program- 
mer en Basic... soucieux de donner des 
ailes a ses programmes. 

Toutes ces routines tournent sur Apple 1 1 
avec 65C02, et la majorite d'entre efles 
fonctionnent aussi sur le GS. A quelques 
rares instructions pres, elles s'accommo- 
dent egalement du 6502. 

Je conseille vivement nos recueils a tous 
ceux qui desirent ailer plus loin et mieux. 
Bonne programmation ! c.-h. 
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Un Jeu simple 
et conusant : 

Ce programme est en Basic Applesoft et ne 
comport© pas de difficultes particulieres. 
Jean Perrot aurait peut-etre pu elaborer une 
routine de traitement d'erreurs, mais libre a 
vous de detecter les possibles fautes de 
manipulation, puis de les traiter comme bon 
vous semblera. 

• LANCE. DUEL explique la regie du jeu et 
n'est pas indispensable : vous pouvez en 
effet la lire ci-contre. Nous vous conseil- 
lons neanmoins de taper ce module car il 
com port e un ecran de presentation 
agreable (voir page suivante). 

• DUEL est le programme principal. 

• SON (A$300,L24) parte bien son nom I 

• FONTE.G est un tableau de formes 
(A$6000,L$2F2) contenant les numeros 
de Q a 9 et les caracteres. 

• P10N3 (A$62F8,L159) est reserve aux pions 
noirs et blancs ainsi qu'au car re blanc. 




Ce due! est un combat singulier &ntre 2 PIONS, 6vo~ 
luant dons fe cadre d une grille 9X9, 
Le jaueur utilise le pion noir et lordinateur joue avec le 
pion blanc. 

Un pion ne peut se deplocer que d'une sevle case tout 

Ioutour de hi (d la maniere du ROt aux echecs, c'est-d-dire 
dans toutes !es directions, y comphs en diagonale}. 
Celui qui joue doit accomplir deux fdches successives : 

• D4p!acer son pion. 

• Oitruire une case moccupee. 

Un pion ne peut pas jouer sur une case occupee par le 
concurrent... ou de'truite. 

BUTDUJMU : 

Encerder I'adversaire pour qu'il ne puisse plus se deplocer, 
i 'ordinoteur fient les comptes et indiquera le nombre de 
coups necessaires pour immobiliser I'adversaire. 

POUR D&LACER UN PION, entrer te nombre de 7 chif- 
fres dont le chiffre de gauche est te num4ro de la ligne 
et celui de droite ie numiro de la colonne. 

Si on entre 9 on va directemenf d la fin de jeu. 

N,D,L.R. ; Attention I let erreurs p&uvent avoir de* 
consequences fatales I 



LANCE.DUEL 



100 PRINT CHR* (17): HOME 

105 POKE 232 r 0: POKE 233,96: DIM F(24),X<97) 
110 PRINT CHR* <4)"BL0AD SON" 

115 PRINT CHR$ <4>"BL0AD FONTE.G" n , i r i 

120 HGR DUEL 2391 

125 HC0L0R= 3: POKE 8,1 2F4D 
130 SCALE= f; RDT= 

135 GOSUB 385 *£5^S<^^'* s,6 ^^^s* 

140 FOR I ■ i TO 24: READ F( I) : NEXT ^J?lir^ ^ a ^L?^ 3 

145 T = 14; HOME : POKE 769,5 /Wl) SSh. 

150 FOR I = 1 TO 12 <& r g 78EF 

155 IF F(I> = THEN 170 94E9 
160 DRAW F< I ) AT 66 + T,40 

165 FOR II - 1 TO 5:Z = PEEK (49200): NEXT 
170 T * T + 10 
175 NEXT 

180 T * 14 A889 
185 FOR I = 13 TO 20: DRAW F(I) AT 87 + T,55:T - T + 10 
190 FOR II * 1 TO 10:2 t PEEK (49200): NEXT II: NEXT I 
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JEA N P ERR OT 
PRESENTE 

DUEL 




195 SCALE* 2:T ■ 14 

200 FOR I - 21 TO 24 r DRAW F<I) AT 90 + T f 80sT * T + 20 
205 FOR II = 1 TO 10 tZ ■ PEEK (49200): NEXT III NEXT I 
210 FOR J m 1 TO 2 
215 FOR 1-1 TO 97: 
220 NEXT J 
225 FOR J « 1 TO 10 
230 GOSUB 500 
235 HCOLOR" 
240 FOR 1=1 TO 20s NEXT 
245 HCOLOR= 0: GOSUB 490: 
250 GOSUB 505 
255 HCOLOR= 



READ XCI): NEXT : GOSUB 420 



GOSUB 480: HC0L0R= 3: GOSUB 485 




HC0L0R= 3s GOSUB 495 



GOSUB 480 



GOSUB 485: HC0L0R= 3: 
260 FOR 1=1 TO 20: NEXT 

265 HCOLOR* 0: GOSUB 495: HCOLOR- 3: GOSUB 490 
270 NEXT 

275 VTAB 22: HTAB li PRINT "Appuytr 'R' pour avoir la REGLE du JEU 
280 HTAB 4: PRINT "Une autre touch* rtlance 1e duel *| 
285 GET H*: PRINT : IF H$ = "R" THEN HOME : TEXT : GOTO 515 
290 HOME : GOTO 225 

295 DATA 21,16,12,25,0,0,27,16,29,29,26,31 
300 DATA 27,29,16,30,16,25,31 ,16,15,32,16,23 
305 : 

310 DATA 58,54,51,60,62,57,63,58,60,66,63,64,72,78,75,73,72 
315 DATA 69,62,76,81 ,B4, 83, 82, 80, 77, 76, 86, 86, 82, 84, 89, 83 
320 DATA 80,84,87,89,89,84,84,72,75,78,81,74,67,66,64,60 
325 DATA 60,63,66,70,67,78,84,84,87,87,81,87,91,91,87,87,89 
330 DATA 102,103,105,132,105,103,101,102,83,91,91,93,96,96 
335 DATA 99,102,102,99,100,96,93,87,87,85,81,80,83,90,96,99,93 
340 8 

345 DATA 208,212,215,206,204,209,203,208,206,200,203,202,194,188 
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H 



+ 8,18 TO X + 10,19 TO X + 13,20 TO X 
22,18 TO X + 24,17 TO X + 28,16 TO X 



350 DATA 191, 193, 194, 197,204, 188, 185, 182, 183, 184,186, 189, 190, 180 
355 DATA 180 , 184, 1 B2, 1 79 , 1 83, 186 , 182, 179 , 1 77, 1 77 , 182, 182 , 1 94 , 1 91 
360 DATA 1 88, 1B5, 192, 199, 200, 202, 206, 206, 203, 200 ,196, 199, 188, 182 
365 DATA 182,179,179,185,179,175,175,179,179,177,164,163,161,134 
370 DATA 161,163,165,164,173,175,175,173,170,170,167,164,164,167 
375 DATA 166,170,173,179,179,381,185,186,183,176,170,167,173 
380 END 

385 HPLOT 50,20 TO 14,90 TO 14,100 TO 20,158 TO 1,158 TO 1,1 TO 278,1 
TO 278,158 TO 259,158 TO 265,100 TO 265,90 TO 228,20 

390 HPLOT 14,100 TO 1,95 TO 1,85 TO 14,90! HPLOT 278,95 TO 265,100 TO 
265,90 TO 278,85 

395 HPLOT 1,15 TO 3,15: FOR X = 3 TO 270 STEP 30 i GQSUB 410: NEXT 

PLOT 274,15 TO 278,15 
400 HPLOT 1,158 TO 278,158 
405 RETURN 

410 HPLOT X,16 TO X + 2,17 TO X 

+ 17,20 TO X + 20,19 TO X * 

+ 30,16 
415 RETURN 

420 HPLOT X<1>,147 TO X(2),152 TO X(3),154 TO XC4),158 TO X(5),157 TO 
X(6),153 TO X<7>,152 TO XC8>,147 TO XC9>,142 TO X<10).147 TO X(ll 
) , 1 52 

425 HPLOT X<12),148 TO X<13),144 TO X<14),!40 TO X<15),137 TO X<16),1 

_ 35 TO X<17>,132 TO X(18),137 TO XC19),144 
430 HPLOT X<20>,140 TO X<21>,142 TO X<22),144 TO X<23),146 TO X(24) f l 
45 TO X(25),143 TO X(26),153 TO X<27>,156 TO X(28),156 TO X(29),l 
54 TO X<30),153 TO X(31),150 TO XC32),148 TO X(33),146 
435 HPLOT X<34),143 TO X<35),150 

440 HPLOT XC36),146 TO X(37),143 TO XC38),140 TO X<39>,132 TO X<40),1 
35 TO XC4D.132 TO X<42),125 TO X(43),122 TO XC44),116 TO X<45),1 
18 

445 HPLOT TO X<46>,122 TO X<47),120 TO X<48>,125 TO X(49),126 TO X<5 
0>,128 TO X<51),129 TO X(52),126 TO XC53>,124 TO X<54),123 TO X<5 
5> f 122 

450 HPLOT X(56),135 TO X<57>,128 TO X<58),125 TO XC59) y U7 TO X<60),1 

16 TO XC61),113 TO X<62),115 TO X<63),122 TO X<64),117 
455 HPLOT XC65),125 TO X<66>, 131 TO X(67), 125 TO XC68),128 TO X<69),1 

22 TO XC70),112 TO X<71),120 TO X<72),122 TO X(73>,119 TO XC74>,1 

21 TO XC75),125 TO X(76), 122 
460 HPLOT X<77>, 115 TO X<78),113 TO X(79),114 TO X(80),112 TO X(81),l 

13 TO XC82),1I0 TO X<83),108 TO X<84),110 TO XC85>,104 TO XC86),1 

02 TO X<87),107 TO X(88),104 TO X(89),107 
465 HPLOT TO XC90),309 TO X<93>,109 TO X<92) , 1 U TO X(93),113 TO X<9 

4) ,109 TO X<95> ,112 
470 HPLOT X<96),110 TO X<97),107 
475 RETURN 

480 HPLOT 105,122 TO 332,112 TO 105,120: RETURN 
485 HPLOT 105,122 TO 134,126 TO 105,320: RETURN 
490 HPLOT 161,122 TO 134,112 TO 161,120: RETURN 
495 HPLOT 161,122 TO 132,126 TO 161,120: RETURN 
500 POKE 768,14: POKE 769,30: CALL 770: RETURN 
505 POKE 768,17: POKE 769,15: CALL 770: RETURN 

510 REM REGLE DU JEU 

515 HOME : PRINT CHRf (17) 
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F91A 
A25A 

0FA9 



188A 
5F9D 
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520 INVERSE : HTAB 15: PRINT * DUEL 1 1 NORMAL : PRINT 
525 PRINT " Ce duel est un combat singulier """entre 2 PIQNS #vol 

uant dans le cadre" 
530 PRINT "d'une grille 9x9" 

535 PRINT : PRINT * Le joueur joue avec le pion noir etAPPLE avec 
le blanc' 

540 PRINT : PRINT 1 Un pion ne peut se deplacer que "d'une seul 

e case tout autour de 1 u i (a la maniere du RDI aux tehees)" 

545 PRINT ! PRINT " Celyi qui joue devra accomplir deuxtaches sue 
cessives s" 

550 HTAB 5! INVERSE : PRINT B <A) " ; : NORMAL : PRINT " DEPLACER SON PI 
ON" 

555 HTAB 5: INVERSE : PRINT "<B)" ; : NORMAL : PRINT " DETRUI RE LINE CA 
SE INOCCUPEE" 

560 PRINT : PRINT " Un pion ne peut pas jouer sur une case occup 

ee ou detrui te" 
565 HTAB 28: PRINT " <RET> — 
570 GET mi HOME 

575 HTAB it INVERSE : PRINT ■ BUT DU JEU " S PRINT s NORMAL : PRINT ' 

Entourer l'adversaire pour qu'il nepuisse plus se d*placer." 

580 PRINT : PRINT " ""II est interdit a un pion de jouer "sur une ca 

se detrui te ou occupee" 
585 PRINT : PRINT " "APPLE tient les comptes et indique le nombre 

de coups qu'M aura fallu pour immob i 1 i ser 1 'adversa i re - 
590 PRINT : PRINT " ""'POUR DEPLACER UN PION sentrer le nombre de 2 c 
h iff res dont It chiffre de gauche est le numero de la ligne et ce 
lui de droite le numero de la colonne* 
595 PRINT : PRINT " Si on entre on va directement a la fin du je 
u" 

600 HTAB 28s VTA 8 22: PRINT " <RET> -->" \ 
605 GET H«: HOME 

610 INVERSE i HTAB 7: PRINT " RENSEI GNEMENTS TECHNIQUES" s NORMAL : PRI 
NT 

615 INVERSE : PRINT " LANCE . DUEL" ; : NORMAL : PRINT * lance le prog.pri 

ncip. ";: INVERSE : PRINT "DUEL": NORMAL 
620 PRINT : HTAB 2: PRINT "Trois programmes L.M. sont utilises :': PR 
INT 

625 INVERSE : PRINT "SON";: NORMAL i PRINT ■ " CA*300 , L24) ■ : PRINT 
630 INVERSE I PRINT "FONTE.G';: NORMAL ! PRINT " Tableau de formes <A 
*6QD0,L*2F2) qui cont i en t , dans 1'ordre : " " ,0 , 1 ,2. . .9 puis A,B,C. 
..X,Y,2,-,u,. B 

635 PRINT i INVERSE : PRINT B PI0N3";s NORMAL : PRINT " <A*62FB,L15?) 

qui contient 1 pion noir, 1 pion blanc et 1 carre blanc" 
640 HTAB 15: VTAB 22: INVERSE : PRINT "RETURN POUR COrMENCER" ; : NORMA 
L 

645 GET H$ : HGR : HOME : TEXT : VTAB 10s HTAB 8: PRINT "B N N E "C 

H A N C E ! ' : VTAB 22 
650 PRINT CHR* (4) "RUN DUEL" 



1830 



DA48 
77D0 
61F8 

7DE8 



AB15 
A682 
2E5D 



0300: 02 02 AD 30 CO 88 DO 05 CE 01 03 F0 09 CA DO F5 

0310: AE 00 03 4C 02 03 60 00 CC62 
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115 PRINT CHR* (4)"BL0A0 SON" 

120 PRINT CHR* <4)'BL0AD FONTE.G' 

125 PRINT CHR* < 4) " BLOAD PI0N3" 

130 PRINT CHR* <4)*PR£3": PRINT 

135 HOME 

140 DIM C(121),D<B) 

145 IV* = CHR* (15) :NRS - CHR$ (14) 




CHR* (17) 



A6DC 
270D 
6855 
OAF 6 
2F97 
A2A7 
449C 



150 REM ===== INITIALISATION "=== 

155 G0SU6 795 QF55 

160 INVERSE : HTAB 12: PRINT "T I RAGE AU SORT'; NORMAL : PRINT 

165 PRINT "Je lance un DE et si j'obtiens un :' 07B8 

170 PRINT s PRINT IV*" 1 "NR$ U c'est vous qui comencerez . . ■ " 

175 PRINT s PRINT IV*" 2 "NR$" c'est moi-. . 

180 FOR I = 1 TO 2000; NEXT 290A 
185 INVERSE : FOR I = 10 TO 12: VTA 8 Is HTAB 1 8 : PRINT ' " " " : NEXT : 

NORMAL 5C80 
190 FOR 1=1 TO 2Q:K ■ INT < RND <1) * 2) + 1 55B9 
195 HTAB 1 9 s VTAB 11: PRINT K 447D 
200 FOR J - 1 TO 1 2 : Z = PEEK (49200): NEXT J, I 6F01 
205 VTAB 15 4408 
210 IF K = 1 THEN PRINT "C'EST DONC VOUS QUI C0MMENCEZ" 

215 IF K = 2 THEN PRINT "C'EST DONC MOI QUI COMMENCE" AFD1 
220 VTAB 21: PRINT "PAT1ENTEZ QUELQUES INSTANTS...": FOR I = 1 TO 200 

0! NEXT 9CE8 

225 REM ===== LE CADRE ===== 

230 SCALE= 1 ; RQT= E3CC 

235 POKE 232 f 0; POKE 233,96 10D2 

240 H6R : HCOLOR= 3 p 1 90 

245 FOR I = 18 TO 153 STEP 15 458A 

250 HP LOT 80 1 1 TO 215,1:2 = PEEK (49200) 4DD4 

255 HPLOT 62 + 1,18 TO 62 + I,153:Z = PEEK (49200) 4F36 

260 NEXT 058 2 
265 FOR I = 1 TO 9 

270 DRAW I + 2 AT 70 + I * J 5 , 1 4 iZ = PEEK (49200) 

275 DRAW I + 2 AT 70,15 * 1 4 1 4 &Z = PEEK (49200) ^jh£L ?46B 

280 NEXT _r" 0582 

285 SCALE= 2 i^TS, 35CB 

290 DRAW 15 AT 15,40: DRAW 32 AT 15,70 f f\*i*** 

295 DRAW 16 AT 15,100: DRAW 23 AT 15,130 J^r\ 

300 SCALE= 1 fcJhh) 37CA 

305 POKE 232,248; POKE 233,98 J*V**^ 8542 

310 REM -- POSE DES PIONS == VT Lfi 

315 IF K = 2 THEN 345 5E5A 
320 HOME : VTAB 22; PRINT "Posez voire pi on... Dans quelle case " ; 

325 INPUT N 9702 

330 60SUB 670: IF L < 1 OR L > 9 OR C < 1 OR C > 9 THEN GOSUB 775: C 

ALL - 198: GOTO 320 A092 

335 POKE 6,N:A = A ♦ 1: GOSUB 765 A67A 

340 DRAW 1 AT X,Y:CCNN) = 5 21D6 
345 K = 2: FOR I = 1 TO 2000; NEXT 

350 i 003A 

355 N = 55: GOSUB 670 040F 
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360 IF CCNN) = 5 THEN L ■ 4:C ■ INT ( RND < 1 ) * 3) + 4 :N = 40 ♦ C sNN 



- N + INT <N / 10) + 1 i GOSUB 670 

365 s 003A 

370 POKE 7,NsB = B ♦ Is BOSUB 770 ^tflllr^ 

375 DRAW 2 AT X f YsC<NN) = 5 ^^^J^ 

380 REM DERQULEMENT DU JEU 

385 REM - < LE JOUEUR >— - 

390 K = 1: HOME ! YTAB 22: PRINT "A yous de jouer... Quelle ease 
395 M = PEEK <6> 

400 N = M: GOSUB 670:X1 - XiYl = YsLl = LsCl = C:N1 = NN 

405 INPUT M2: IF M2 = THEN 610 

410 HCOLOR= 0! DRAW 1 AT Xl,Yt:C<Nl) = 

415 N = M2: GOSUB 670sX2 = XsY2 = YsL2 = L:C2 = C:N2 = NN 

420 IF A = THEN 430 4E49 
425 IF ABS (LI - L2> > 1 OR ABS CC1 - C2> > 1 OR C<N2> - 5 THEN GO 

SUB 775: GOTO 390 O^BA 
430 IF L2 < 1 OR L2 > 9 OR C2 < 1 OR C2 > 9 THEN 390 
435 HCOLOR= 3s DRAW 1 AT X2,Y2sC<N2) = 5 

440 POKE 6,N:A = A + Is GOSUB 765 A67A 
445 REM CASE A DETRUIRE — 

450 PRINT : HOME s VTAB 22s PRINT "CASE a detru i re . .Laquell e " ; 
455 INPUT M: IF M - THEN 610 

460 N = M: GOSUB 670 :LD = L:CD = CsXD = XsYD - YsND = NN 

465 s 003A 
470 IF LD < 1 OR LD > 9 OR CD < 1 OR CD > 9 OR C(MM> = 5 THEN GOSUB 

775: GOTO 450 
475 GOSUB 730 



480 REM = TEST DE FIN DE PARTI E == 

485 N = PEEK (7):M4 = N + INT (N / 10) + 1 

490 FOR I » 1 TO 8 

495 IF CCNN * DU>) < > 5 AND C(NN + D(I)> < > 9 THEN 510 

500 NEXT I 

505 K - 1 : GOTO 610 

510 REM = JEU DU MICRO = 
515 K = 2 

520 HOME s VTAB 22s PRINT "Je joue... Patience !..."; 
525 M * PEEK <7> 

530 N - M: GOSUB 670 sXl - XsYl = YsNl = NN 
535 HCOLOR= 0: DRAW 2 AT Xi ,Y1 :C<N1) ■ 
540 S 

545 N = M: GOSUB 685s GOSUB 700 
550 GOSUB 670 :X2 = X:Y2 = Y:N2 = NN 
555 HCOLOR- 3: DRALJ 2 AT X,YsC(N2) = 5 
560 POKE 7,N:B = B + 1: GOSUB 770 
565 N = PEEK (6): GOSUB 685 

570 GOSUB 700s GOSUB 670 sXD = XsYD = YsND = hN 
575 GOSUB 730 
580 : 

585 N = PEEK C6)sMM = N + INT <N / 10> + 1 
590 FOR I = 1 TO 8 

595 IF CCNN + D(I>) < > 5 AND CCNN + D<I)> < > 9 THEN 380 

600 NEXT I 

605 K = 2s GOTO 610 

— / PACE 8 / ^— — ^— ^— — — — — 



1BDB 
0EC4 
6A2E 
9DCB 
45C8 



454D 
59EA 
C087 
86EF 
5213 
003A 
4879 
164D 
F9BA 
D979 
2C14 
6504 
F94A 
003A 
27DA 
0EC4 
4C33 
9DC8 
33C9 



/ Jean PERROT — APPLESOFT / 



gagne en " ;A ; 
e plus fort ! 



610 REM = FIN DE PARTI E === 

615 HOME : MTAB 22: PRINT "C'EST FINI !..LA PARTI E EST TERMINEE 
620 UTAB 23: PRINT "< RETURN) pour obtenir le score"? 
625 FOR J = 1 TO 3: GOSUB 765: GOSUB 770: NEXT 
630 GET H-*; HOME s TEXT 
635 VTA8 12: HTAB 3 

640 IF K = 1 THEN PRINT 1 BRAUO Vous avez 
645 IF K = 2 THEN PRINT "DESOLE !.. Je su i s 

"J'ai gagne en ";B;" coups" 
650 VTA8 20: PRINT 1 UNE AUTRE PARTI E ? (0/N) ' 
655 IF H* = "0" THEN RUN 

660 TEXT : HOME : PRINT : PRINT CHRS (4) "RUN /T20/STARTUP 
665 END 

670 REM TRAITEMENT DES CASES = 
675 L = INT <N / 10) :C = N - 10 * L 
C * 67:Y = 15 * L + 15 
INT <N / 10) ♦ 1 



COUPS' 
: PRINT 



GET H*: PRINT H* 



INT (N / 11) - 1 ; RETURN 
[ RNO < 1 ) * 8) * 1 
: IF E > 50 THEN 610 
D<D) = 5 OR CCNN * D<I>> 
INT <<NN + D<I)) / 



680 X = 15 * 
685 MM = N + 
690 RETURN 
695 N = NN - 
700 I = INT 
705 E = E + 1 
710 IF CCNN ♦ 
715 N = NN + DU) - 
720 RETURN 
725 : 

730 REM == EFFACEMENT CASE DETRUITE = 

735 IF K = 1 THEN GOSUB 765 

740 IF K = 2 THEN GOSUB 770 

745 HCOLDR= 3 

750 DRAW 3 AT XD,YD + 1 

755 C<ND) = 5 

760 RETURN 

765 POKE 768,255: POKE 769,80: CALL 770: 
770 POKE 768,100: POKE 769,60: CALL 770: 
775 HOME : VTAB 21: CALL - 198: PRINT 1 



= 9 THEN 700 
11) - 1 :E = 



RETURN 
RETURN 
ERREUR ! 



RECOMMENCE? 



780 
785 
790 
795 
800 
805 



815 
B20 
825 
830 
835 
840 
845 
850 
855 
860 
865 



FOR I = 1 TO 2000: NEXT 
RETURN 

FOR I = 1 TO 121 : READ CU>: NEXT 
FOR I = 1 TO 8: READ DU): NEXT 
RETURN 

DATA 9,9,9,9,9,9,9,9,9,9,9 
DATA 9,0,0,0,0,0,0,0,0,0,9 
DATA 9,0,0,0,0,0,0,0,0,0,9 
DATA 9,0,0,0,0,0,0,0,0,0,9 
DATA 9,0,0,0,0,0,0,0,0,0,9 
DATA 9,0,0,0,0,0,0,0,0,0,9 
DATA 9,0,0,0,0,0,0,0,0,0,9 
DATA 9,0,0,0,0,0,0,0,0,0,9 
DATA 9,0,0,0,0,0,0,0,0,0,9 
DATA 9,0,0,0,0,0,0,0,0,0,9 
DATA 9,9,9,9,9,9,9,9,9,9,9 
DATA 1 ,12,11 ,10,-1 ,-12, -11 ,-10 



D 

u 

E 

L 




A3DC 
62BA 
9A90 
33BE 
3F08 
598F 

3863 
6F65 
92EC 
B94E 
0180 

2A95 
0DDD 

5919 
63B1 
C407 
5095 
360E 
3F90 
8286 
63B1 
003A 

680F 
360C 
51C5 
A0EA 
CE2B 
63B1 
77A2 
5C95 

185C 
290A 
63B1 
003A 
DF7A 
931F 
63B1 
2DAE 
7B5D 
7B5D 
7B5D 
7B5D 
7B5D 
7B5D 
7B5D 
7B5D 
7B5D 
2DAE 
7819 



/ PACE 9 / 



/ DUEL / 



FONTE.C (A$6000,LS2F2) 



6000 : 
6010 : 
60 20 ! 
60 30 ! 
6040 : 
6050 : 
6060 : 
6070 : 

60 80 : 
6090 : 
60A0 : 
60B0 : 
60C0 : 
60D0 : 
60 E0 : 
60F0 : 
6100 : 
6110: 

61 20 : 
61 30 : 
61 40 : 
61 50 : 
61 60 i 
6170: 
61 80 : 
61 90 : 
61 AO : 
61 BO : 
6 ICO ! 
61D0 : 
61 EO x 
61F0 : 
6200 ! 
621 J 
6220 : 
6230 : 
6240 : 
6250 : 
6260 : 
6270 : 
6280 : 
6290 ? 
62A0 : 
6280 : 
62C0 : 
62D0 : 
62E0 : 
62F0 : 



28 00 52 
BB 00 CE 
4E 01 63 
D3 01 E8 
62 2 74 
EC 02 41 
36 3E 3E 

24 24 37 

25 25 3C 
3C 27 25 
3F 3F 24 
27 3F 37 
35 3E 3E 
25 25 3F 
25 2D 25 
07 00 01 
2D 25 2D 

24 3C 3F 
3F 35 36 
3E 3E 3F 

25 24 24 
2D 25 3E 

35 06 00 

36 
3C 24 24 
2E 2D 2D 
24 2C 3F 
21 24 
2E 2E 2E 
24 00 00 
24 2C 36 
36 35 2E 
35 35 36 
2D 35 35 
35 35 36 
24 24 3C 
00 09 3C 

35 06 00 
00 00 09 

24 24 04 

25 24 25 
24 2C 24 
2C 2C 2C 

36 06 00 
24 25 2C 
2C 2C 24 
49 21 24 
00 



56 

00 DD 

01 73 

01 F9 

02 86 
41 01 
3F 24 
37 37 
3C 3F 
25 25 
25 2C 
27 24 
3F 3C 
2D 3D 
25 3C 
34 35 
00 00 
3F 7 
36 36 
3C 24 
3C 3C 
3F 3F 
2D 27 
09 2D 
24 25 
24 24 
07 00 
24 24 
2E 05 
24 24 
36 36 
24 24 
36 3E 
3E 3E 
36 3E 
2D 2D 
34 35 
9 2D 
3C 24 
00 08 
24 04 
36 35 
24 36 
49 21 
24 4 
3F 3F 
24 24 



CO 6B 

00 F2 00 

1 8A 1 
1 9 2 
2 9D 2 
00 09 3C 
2C 2C 2C 
06 29 
3E 36 00 
3F 3F 3F 
24 25 04 
2C 2D 2D 
24 24 24 
2C 2C 24 
3C 3F 3E 
2D 25 25 
21 24 24 
2D 2D 
26 24 2C 
24 24 25 
3F 3F 35 
24 24 2D 

24 2C 25 

25 25 24 
2D 35 35 
36 36 36 
1 24 36 

34 36 2E 
00 29 2D 
24 24 35 
36 6 
24 24 04 
3E 3F 07 
3F 3F 00 

36 3C 3F 

35 35 3E 
2D 25 25 
27 24 24 
24 24 34 
08 24 3C 
00 21 24 

36 25 24 

37 37 27 
24 3C 24 
00 29 2D 

37 6 
34 36 36 



77 00 
05 01 
9B 01 

19 02 
B3 02 
24 24 

24 04 
2D 2D 
00 01 
00 00 
00 1 
36 

25 2D 
3F 3F 
36 35 

24 24 

25 2C 
25 25 

20 2D 
2D 35 
36 36 

34 26 
36 3C 
3F 37 
06 00 
36 06 

35 2D 
2C 2C 
2D 34 

36 35 

21 24 
00 09 
2D 
00 09 
2D 24 
3E 3F 
3C 3C 
24 2C 
36 36 
24 34 
3C 24 
2C 24 
27 27 
27 34 
2D 34 
8 3 
36 3 6 



89 00 

16 01 

A5 1 

2D 02 

C6 02 

24 25 

00 49 

3F 3F 

34 35 

49 09 

34 35 
1 

35 35 
37 06 
2D 35 
3C 3C 
2C 2E 
3C 24 
00 00 

35 06 

36 36 
3F 24 
27 24 
2C 2D 
21 24 
00 09 
25 25 
2C 2C 
3F 3F 
36 35 
24 24 
3C 24 
27 24 



3C 24 

3F 

2F 2E 

3F 3C 

2D 26 

36 35 

36 35 

24 36 

24 04 

34 2E 

2E 36 

3F 3F 

8 28 
06 00 



9A 00 
2C 01 
Bl 1 
41 02 
D8 02 
2D 35 
29 3D 
27 25 
2D 25 
24 34 
2D 25 

24 25 
06 00 
00 09 

35 3E 
3F 3E 

36 35 

25 3C 
09 2D 
00 2D 
00 00 
24 2F 
3C 2D 

36 3E 
24 24 
2D 27 
24 24 

37 37 
27 24 

26 2C 
2C 36 
24 24 
24 24 
2 4 24 
2D 
2E 2E 
24 25 
3F 3F 
2D 25 
36 35 
36 35 



A9 
3D 01 
C6 1 
53 02 
EO 2 

35 36 

24 24 

25 25 
25 3C 
2E 3D 
25 24 
2D 35 
21 25 
3C 24 
3E 3F 

36 35 

36 36 
3C 3F 
25 25 
2D 25 
29 2D 
2D 2D 
2D 2D 
3E 3F 

34 36 
24 24 
24 04 

37 37 
24 24 

24 2C 

35 2E 

25 2D 
3C 2D 



00 21 

2E 2E 

35 36 

27 2C 

3F 3F 

49 29 



25 2D 

27 24 

2E 05 

2D 35 

3F 36 

25 24 

2E 24 

36 2E 

2C 2C 

2E 2E 

2E 24 

2C 2C 



3C 2E 



62F8: 3 08 00 ID 00 4B 00 

6300: 49 29 2D 2C 25 2C 24 3C 24 3F 3C 3F 

6310s 2E 36 2D 06 00 49 29 2D 2C 3D 3F 3F 

6320: 2D 2C 3F 3F 3F 3F 27 2D 2D 2D 2D 25 

27 2D 2D 2D 2D 3D 3C 3F 3F 3F 2C 2D 

3F 00 00 2D 2D 2D 2D 2D 25 3F 3F 3F 

2D 2D 2D 2D 25 3F 3F 3F 3F 3F 27 2D 

25 3F 3F 3F 3F 3F 27 2D 2D 2D 2D 2D 

3F 3F 27 2D 2D 2D 2D 2D 25 3F 3F 3F 

2D 2D 2D 2D 25 3F 3F 3F 3F 3F 3F 00 
2D 2D 2D 2D 2D 2D 



PI0N3 (A$62F8,L159> 



6330 : 
6340 : 
6350 s 
6360 : 
6370 : 
6380 : 
6390 



3E 37 

3F 2C 

3F 3F 

2D 2D 

3F 3F 

2D 2D 

25 3F 

3F 3F 

00 3F 



3E 36 

2D 2D 

3F 3F 

3F 3C 

27 2D 

2D 2D 

3F 3F 

27 2D 

3F 27 



?37E 
3DE0 
3E6D 

2E3rt 

BO 1 4 

AEB8 

433A 

FA92 

D6A4 

C545 

3550 

68A0 

C893 

324E 

A290 

CD6A 

33C5 
7866 

8EA4 
DBC6 

A6ED 

AE84 
859A 
8561 

A953 

BBOD 

23B1 

7485 

8561 

B380 

0B3O 

ACC1 

F294 

7 ECO 

BCEF 

6EC3 

CE76 

7A57 

BB3C 

8564 

F04F 

A3DB 

0BA6 

9B7D 

C9F5 

D8C4 

0000 

AE73 

7743 

84E2 

7651 

453F 

7CD4 

4A1 C 

554A 

523A 

90F8 

EAOE 



/ PAGE f / 



— — — / Jean PERBOT — APPLESOFT / — 

VERIF-COMPTE 



Vous arrive- f-ii de contrdler vos releves de compfe bancaire ? Sans aucun 
doute, Savez-vous pour autant ou vous en etes exacfement ? Pas sOr I II est 
rare que le dernier releve bancaire tienne compfe des cheques recenfs. 

De plus, certains debiteurs ne sont pas presses de presenter leurs cheques a I'encais- 
sement... d'ou bon nombre de "problemes". 

Le petit programme de Jean Perrot n'a pas ia pretention de gerer plusieurs comptes 
et ce n est pas advantage un Jogicief "professionnel". Neanmoins, tef qui! se pre- 
senter il pourra rendre service a bien des Francois moyens. Vous peut-etre ? 

Notez que la partie INSTRUCTIONS peut etre negligee. 



100 
105 
110 
115 
120 
125 
130 
135 
M0 
145 
150 
155 
160 
165 
170 
175 
180 



DIM NDC 30) ,ND-$ ( 30 ) ,NC< 1 > ,NC* C10) 
CHR$ <15>:NR$ = CHR* (14>:D$ = CHRf 



<4) 



UTAB I 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



: POKE 
IU$" 1 

IVf" 2 
IW 3 
IV*" 4 
: POKE 



PRINT :ND = 0:NC = OjSB = D:SC = 



"MENU "NR-t 
ez-vous : " ; PRINT 
instructions ?": PRINT 
e du tableau 
mmediatement ?" 
programme 9 " 



final ?" 
PRINT 



HOME 
IU$ = 

PRINT CHR$ <4)"PR£3" : 
PRINT DVBLOAD SI RENE" 
VTAB 5s POKE 1403,35: PRINT IW 
1403 r 33: PRINT "Vou 
"NR*" Consul ter les 
"NR$" Voir un exemp 
"NR-*" Commencer 
"NR$" Quitter le 
1403,33: PRINT "V0TRE 
GET H*:H = UAL (H$)s IF NOT H OR 
ON H GOTO 580,670,175,165 

POKE 6,0: HOME ; PRINT : PRINT : PRINT CHR* (4) "RUN 

HOME : PRINT "Retraits non enregistres (taper 
FOR I = 1 TO 30: INPUT ND<3>:P = ND<I 
ND + ND<I) 
185 ND*(I> = STR* C INT <ND<I)));ND$ = 
190 CALL - ??8: PRINT ■ Numero " ; I ; ■ — > 
1 95 IF ND< I ) = THEN D = Is GOTO 
200 NEXT 

GOSUB 545 

P = ND: GOSUB 540 :ND = P 



PRINT 



CHOIX 
H < 1 



OR H > 4 THEN 155 



STARTUP" 



GOSUB 



0' pour 
540:ND<I 



ARRETER) " 
) = PsND - 



205 



< INT 
;ND<I) ; 



<ND>) 
GOSUB 



560 



205 
210 
215 
220 
225 

230 
235 
240 
245 



PRINT "Sornmes non credit£es (taper '0' 
FOR I = 1 TO 10s INPUT NCCI):P - NCCI) 
NC + NC<1) 

NCf<I) = STRf ( INT (NCCI))):NC$ = STR* ( INT 



pour ARRETER) 1 
GOSUB 540:NC<3) = PjNC = 



CALL - 998s 
IF NC<1) = 
NEXT 



PRINT " Numero " ;I ; ' 
THEN C = I : GOTO 250 



— > 



;NCCI) 



<NO) 
GOSUB 



560 



C135 
187A 
788C 
1BAE 
079A 
C40C 
CD45 
4942 
BD61 
1F65 
781F 
C6A3 
729E 
97F0 

220F 

C98A 
4F50 
C68A 
1A76 
0582 
E04E 
3F21 
003A 
BD27 

BD82 
4C4C 
A289 
1974 
0582 



/ PACE ft / — 



/ VERIF COMPTE / 



250 GOSUB 545 

255 P ■ NC: GOSUB 540 :NC - P 
260 : 

265 PRINT ; INPUT "Sold* de mon carnet ;"|SC:SC* = STR* < INT (SO): 

P = SC: GOSUB 540 :SC ■ P: GOSUB 560: CALL - 998 
270 POKE 1403,40: INPUT "Solde du relev* bancaire :"}SB:SB* ■ STR* < 

INT (SB)):P = SB: GOSUB 540 : SB = P: GOSUB 560 
275 PRINT ; HTAB ?: PRINT "Voulez-vous modifier quel que chose ? (0/N) 

■ j : GET H*: PRINT 
280 IF H$ < > "0" THEN 350 

285 PRINT : PRINT 'Taper <R> pour un retrait <V> pour un versement* 
290 PRINT " <C> pour corriger le solde du carnet " <B> pour le rele 
ve" bancaire" 

295 PRINT : POKE 1403,25: PRINT IV*" R "NR*" ou "IV*" V "NR*" OU ' IV* 

1 C "NR*" ou "IV*" B "NR*" GET Z* 

300 IF Z* = "C* OR Z* = * B" THEN 310 
30 5 INPUT "Nume>o ? " ?N 
310 INPUT "Nouveau morttant ? " ;M0 

315 IF Z* = " R " THEN NZ = ND(N) :ND(N> = MO :ND ■ ND - NZ * NO(N> :P = N 

D : GOSUB 540 :ND = P 
320 IF Z* = "V" THEN N2 = NC(N) :NC<N) = M0:NC = NC - NZ + NC<N) :P = N 

C: GOSUB 540 :NC = P 
325 IF Z* = "C" THEN SC = M0 
330 IF Z* = "B" THEN SB = MD 

335 PRINT : PRINT "AUTRE CORRECTION ? (O/N) : GET H* 
340 IF H* - "0" THEN 295 



ED4E 

3F1F 
003A 

75C2 

5F72 

97CC 
QAA8 
90B0 

E07D 

B2C7 
107C 
99DC 
6682 

54C8 

6FC5 
8448 
E946 
AEAB 
64E0 



== AFFICHAGE DES RESULTATS ET CONCLUSION 



345 REM = 
350 REM = 

355 REM = r ^=== =============-- — — - 

360 HOME 

365 VTAB 1: GOSUB 545: VTAB 3: GOSUB 545; VTAB 19; GOSUB 545: VTAB 21 

: GOSUB 545 
370 H - 0: GOSUB 550 

375 VTAB 2: HTAB 5: PRINT ■ RET RAITS NON DEBITES" ; : HTAB 32: PRINT "VE 

RS.NON CRED . " ; : POKE 1403,57: PRINT "VERI Fl CATI ON" 
380 FOR 1 = 1 TO D - 1 

385 IF I < 16 THEN VTA 8 I + 3: HTAB 2: PRINT I;: POKE 1403,10 - LEN 

(ND*<I)) : PRINT ND(I): GOTO 395 
390 IF I > 15 THEN VTA 8 (! - 12): POKE 1403,16: PRINT I;: POKE 1403, 

24 - LEN CND*CI)>s PRINT ND( 3 ) 
395 NEXT 
400 GOSUB 555 

405 VTAB 20: POKE 1403,2: PRINT IV*" R "NR*;: POKE 1403,12: PRINT ND 
410 H = 29: GOSUB 550 
415 FOR 1 = 1 TO C - I 

420 VTAB U ♦ 3): POKE 1403,30: PRINT I;: POKE 1403,40 - LEN (NC*<3) 

)s PRINT NC(I) 
425 NEXT 

430 SO = SC + ND - NC:S0* = STR* < INT CS0)):P - SO: GOSUB 540 :S0 = 
P 

435 VTAB 20: POKE 1403,30: PRINT IV*" V "NR*;: POKE 1403,37 - LEN (N 

C*<I)) : PRINT NC 
440 H - 45: GOSUB 550 



2F97 

0B87 
93CC 

BD60 
2DCA 

F68D 

F5D7 
0582 
044F 
C279 
5A07 
FEC9 

21AF 
0582 

9D02 

C800 
3305 



/ PACE 12 / 



/ Jean PERROT — APPLESOFT / 



445 
450 
455 
460 



REM 



PRINT "TOTAL — >' 



REM aMmmmm * ssssss ~ VERIFICATION 

VTAB 6: POKE 1403,47: PRINT ■ SOLDE 
LEN CSC*): PRINT SC 
445 VTAB 8: POKE 1403,53: PRINT IV*" R 

3,74 - LEN CND*): PRINT ND 
470 VTAB 10: POKE 1403,51: PRINT 
03,74 - LEN <NC*): PRINT NC 
475 VTAB 11! POKE 1403,66: PRINT 
480 VTAB 13: POKE 1403,54: 

SO*): PRINT SO 
485 VTAB 16: POKE 1403,47: 
- LEN (SB*): PRINT SB 
H = 79: GOSUB 550 
IF SO = SB THEN VTAB 20: POKE 
T"NR* : GOSUB 565: GOTO 505 
IF SO < > SB THEN VTAB 18: 
";<SO - SB): VTAB 20; POKE 1 
"NR*; GOSUB 570: GOSUB 570: 
VTAB 22: HTAB 4: PRINT IV*" 
= C0RRI6ER (noter les 
AA = PEEK < - 16384) 
IF AA < > 68 AND AA 
IF AA ■ 68 THEN RUN 
IF AA - 67 THEN HOME : GOTO 2B5 
IF AA = 70 THEN 165 



CARNET ""-->"; 
"NR* ; " ----- > 
IV*" V "NR*;" --> 



POKE 



1403,74 - 
POKE 140 
: POKE 14 



490 
495 

500 



505 



POKE 1403,74 - LEN ( 
PRINT "SOLDE REL . BANC . — > B ;j POKE 1403,74 

1403,55: PRINT IV*"TOUT EST CORREC 



510 
515 
520 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 

575 



POKE 1403,52; PRINT 
03,53: PRINT IV*" IL 
GOSUB 570 
"NR*" = DEBUT" 
numgros)* SPC< 9) IV*" 
POKE - 16368,0 
> 70 AND AA < 



'DIFFERENCE —> 
Y A UN PROBLEME 



SPC< 10)IV** C 
F "NR*" = FIN" 



" NR*" 



> 67 THEN 510 



585 
590 

595 
600 



P s 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 

REM - 
REM - 
REM - 
HOME 



INT <P * 100 + .5) / 100 : 

J = 1 TO 10: PRINT " 

J = 1 TO 21 : VTAB J: POKE 
J = 4 TO 18: VTAB J: POKE 



II 
II 
II 



= 1 
= 1 
= 1 



RETURN 
— NEXT 
1403, H: PRINT 
1403,15: PRINT 



TO 30;2Z = PEEK (49200): NEXT 
TO 2: CALL 781: NEXT : RETURN 
TO 20:BZ = PEEK C 49200): NEXT 



RETURN 
" ! ■ I NEXT : 
": NEXT 
RETURN 



RETURN 
; RETURN 



RETURN 



INSTRUCTIONS 



POKE 1403,33: PRINT IV*" INSTRUCTIONS "NR*: PRINT 
PRINT " "Chacun sast comb i en i I 

gestion d'un compte": PRINT "bancaire 
par la banque ne coincide jamais, h£ 



est penible 
. Le solde 

as! ""avec 



cal 



605 



610 



615 
620 
625 
630 



s avez 
PRINT 
et des 
PRINT " • 
rreur n'a 
: PRINT 
PRINT " " 
PRINT "-1 
PRINT "-2 
PRINT "-3 
dinateur) 



cul2." 
" En 
versernents 
H "Le 
'a ete 



de verifier la 
du releve' envoys 
le solde que vou 



e-ffet, il 



y a toujours des cheques non d£bit£s 
non cr£d i t£s" 

but de ce programme est de verifier qu'aucune e 
comrnise": PRINT "ni par vous-meme ni par la banque" 



31 suf-fira d'entrer success i vement ";" 
Tes montants des retraits non dtbitls par la banque 
Its montants des versements non erudite's" 
le solde que uous avez calculi (par uous-meme 



557C 
8280 

68AD 
A547 

6AD0 

C901 
3F0C 

1B1F 

23CE 

12AB 
9174 
5C49 
7ADD 
2B4B 
A8C6 
003A 
5C61 
F970 
6E45 
306C 
9CCF 
EDI 4 
FBB6 



2F97 
51 BB 

9BA1 
A345 



5DF3 
0CE9 
B9A1 
4107 



ou par or 



3FB9 

/ PACE 1 3 / — 



- / V^MF-COMPTE / 



635 
640 



645 

650 

655 

660 

665 

670 

675 

680 

685 

690 

695 

700 

705 

710 

715 

720 

725 



PRINT 
PRINT 

5 50 I t 

abl eau 
PRINT 
•vTAB 22 
GET H*: 



du 



releu£ bartcaire" 

Le programme permet de eorriger les erreur 

a SAISIE": PRINT *soit apres 1 'a* * i chage du t 
Dans un cas comrne dans 1 'autre M" 
en noter les NUMEROS des sommes enregi strees. " 



-4 le solde 

PRINT " 
a la fin de 
•final . 
faut b 

POKE 1403,40: PRINT 1^" T.S.V.P. — > "NR* 
HOME 



«= EXEMPLE ====== 

TP 20: READ ND< I ) :ND*< 1 ) - 
ND(1>:P = NO : G0SUB 540 :ND 



STR* 
= P 



GOTO 120 
END 

REM ===== 
FOR I = 1 
ND = ND + 
NEXT :D = I 
ND) = STR* 
FOR I = 1 

NC = NC + NC<l)iP = NC<I): GOSUB 540:NCCl> = P 
NEXT iC = I 

NC* = STR* < INT (NC)> 
SB = 2440.49:SB* = STR* < INT (SB) ) 
SC = 7341.85:SC* = STR* < INT CSC) ) 
SO = SC + ND - SC:P = SO: GOSUB 540:! 

) 



< INT (ND<I))) 



C INT <ND) ) 
TO 5: READ NC<I> :NCS(I) = 



STR* C INT CNCCI))) 



= P:SO* - STR* < INT (SO) 



730 RESTORE 

735 DATA 123.5,234.61,1281 .75,1500,264.25,32.3,385.65,53-25,2763.51 
740 DATA 693.37,259.2,82.9,164.15,281.5,390.27,345.67,289.34,12' 
36 872 • 5 

745 DATA 12953.67,795.36,410.2,343,51,2512,7 
750 GOTO 350 

IF 



E5CE 



A8C3 
2465 
2D2D 
61FB 
1 13E 
0180 

44BA 

9F43 

3519 

1071 

448A 

7572 

CE18 

A16F 

61 7B 

D683 

CE07 
5DAE 
C8CB 



755 GET H*:H = UAL <H*) : HOME 



NOT H OR H < 1 OR H > 3 THEN 



SI RENE ,A*0300 ,L*0054 



0300 s 
0310: 
0320: 
0330: 
0340: 
0350: 



A9 
IF 
IB 
ID 
30 
DO 



01 
03 
03 
03 
CO 
DD 



FF 
80 
1C 
IE 
8A A8 
28 60 



A2 
A9 
8C 
AD 



AO 
A2 
03 
03 
88 



FF 

06 
8E 
6D 
DO 



4C 
AO 
ID 
IC 
FD 



IF 
FF 
03 
03 
AD 



03 
4C 
A9 
8D 

30 



A9 
IF 
00 
IE 

CO 



01 
03 
BD 
03 
CA 



A2 
00 
IE 
A8 
DO 



FF 
IF 
03 
88 
E5 



AO 
9D 
08 
DO 
DE 



01 
42 
78 
FD 
IB 



4C 
BD 
AE 
AD 
03 



AA90 
CEBB 
36FC 
E2D2 
AA7F 
3F35 





• INTRODUCTION A LA PROGRAMMATION SCIENTIFIQUE 
EN TURBO PASCAL (par Thomas Laehand -Robert) 

Cette introduction a la progrommation scientifique et technique en Turbo Pascal se des- 
tine plus particulierement aux eludiants des deux premieres annees d universite et aux 
eleves des classes preporotoires de mathematiques supeneures et speaales. 
t'auteur Thomos Lochard Robert, actuellement eleve 6 I'Ecole Polylechnique, a voulu 
apporter d lout |eune etudianl une premiere approche de lo programmation scieni. .que 
sons touleiois proposer un cours. Le lecteur y trouvero des chapitres tradilionnels de 
morhematiques abordont, entre autres, lalgebre lineaire. le cokul different^ el inte- 
gral, et des exemples tires de lo physique et de nombreux programmes graphiques tels, 
les trocte de courbes, les surfaces, les chomps diHerentiels. 

Les nombreux programmes et modules proposes sent tous accompagnes de commentoi- 
res qui donneront au lecteur des indications sur la nalure d un certain nombre de proble- 
mes et certaines soluik™ que Ion peut y opporter. I utilisaleur, grace o cet ouvrage. 
pourra se contruire une premise couche technique 6 partir de laquelle un travail bien 
structure sera immedialement profitable. 

tomamtlX-Mw iJtf SHOT. WtfW«S- « 



/ PACK 14 / 




/ Claude AUBRY — APPLE II CS / — 



J' AI MIS UN PALMIER 

dans man Apple GS 



En fait, if y a deux sortes de programmeurs, ceux 
qui font de I'informatique pour s'amuser ou pour 
epater les copains (on les appelle des amateurs), 
et puis les autres, les pros, tous ceux qui gagnent 
leur vie a la sueur de Jeurs doigts manucures. 

Les premiers ont tout leur temps — quand on aime 
on ne compte pas — , ils programment en Basic, en 
Pascal, en C ou mieux (ou pire) en Assembleur. 
Les autres ont toujours une semaine de retard sur 
leur planning et utilisent des outifs de programma- 
tion puissants tels que DBASE ou MEMSOFT. 

Je me souviens du temps orchaique ou f'importa* 
teur de Commodore vendait ses CBM 8032 comme 
des grille-pain : quelques pages de doc et une dis- 
quette systeme. Pour cinq ou six mille francs de 
plus, on avoit droit a une gestion de fichier en Basic 
(bugguee), une compta (archhbugguee), un traite- 
ment de texte (en americain) et un jeu du pendu en 
suedois. 

Pour les developpeurs assoiffes dans ce desert, 
MEMSOFT arrivait comme une oasis : pensez done, 
le Basic du CBM gagnait le sequentiel indexe, les 
masques de soisie et surtout, on pouvait utiliser 
des disques durs de capocife quosi-illimitee a une 
epoque ou les plus courageux echangeaient leurs 
lecteurs de cassettes contre des disquettes 360 K. 

Cela dit, le CBM n'etait pas vroiment un marche 
porteur et une deuxieme version de MEMDOS alfait 
apporaltre, sur ITT2020 d'obord (le premier clone 
Apple) puis sur I'Europlus, le HE, le IIC 11 BM et puis 
tout recemment, sur I'APPLE GS. 

Pour eviter la redoutable pompe a logiciel qui, 
comme chacun feint de I'ignorer, fonctionne a plein 
rendement sur I'Apple, les concepteurs fut£s 
allaient distribuer leur produit sous la forme d'une 
carte pleine de puces, moins facile a copier qu'une 
disquette 5 pouces. Voici comment, grace a leur 



ingeniosite commerciole et a la quality de leur logi- 
ciel, ils sont encore la r a se faire bronzer le clavier, 
au soleil des Alpes-Maritimes, 



UM DESIGN D'ENFER 



II y a sept ans, lorsque j'ai achefe" mon premier MEM- 
DOS, j'avais eu droit 6 une carte imprimee entouree 
de scotch et de plastique pustuleux avec une dis- 
quette du meme acobit. Aujourd'hui, je dots dire, ils 
font fort ! Je suis ressorti de chez mon fournisseur 
pr^fere" avec une sorte de petite mallette noire (style 
pistolet de collection) ; sur I'emballage, le sigle 
MEMSOFT et un palmier (genre Parts-Dakar) ; dans la 
boTte, la corte pleine de puces precitee, une disquette 
3.5 pouces, et un bouquin de 487 pages decrivant le 
BASIC MEMSOFT en detail. 

Si vous ne savez pas quoi offrir 6 votre PDG, faites-lui 
cadeau de MEMSOFT ; meme s'il n'utilise pas le logi- 
ciel, il pourra garder la boite, e'est classe ! 



Y-A-riL UM ROULEAU 

DE SCOTCH DAMS LA BOITE ? 



Avant tout, ouvrir I'Apple GS- Operotion facile si 
on dispose de trois mains et que Ton est premier 
prix de conservatoire de flute a quinze trous. Voila, 
e'est fait. Je constate au passage que ma corte 
d'extension memoire est toujours Id (condition sine 
qua non au fonctionnement de MENDOS) ; intro- 
duction de la carte dans le slot 4 comme il est dit a 
la page 17 de la doc (dont les pages 1 a 29 viennent 
de se detacher...). En plus de la mallette, votre 
PDG aura un puzzle,.. 

Termine. Fermeture de I'Apple dans un bruit de 
noisette ecrosee. Introduction de la disquette 
systeme dans le fecteur 1 . 

Savez-vous pourquoi j'aime bien le GS ? Eh bjen ! 
e'est la seule machine actuefle a ne pos avoir de 
ventilateur ! ( s uite page 16}. 

— — — — / PACE IS / — 



/ J At MIS UN PALMIER... / 



J'allume done silencieusement la b§te qui sommeil- 
lait ; elte avale la [die petite disquette blanche 
avec prodos, la jolie petite disquette bleue (avec 
palmier) dans son deuxieme lecteur... MIAMM, 
SLURRRP, RAAACLLLLE, BLURRRRP.-. 



UN REGAL POUR MA POMME 

Heureusement les gens de MEMSOFT sont plus 
doues pour ecrire des logiciels que pour relier 
des bouquins. Le temps de cliquer sur I'icone 
"MENU" et je suis convaincu que MEMDOS n'est 
pas une nouvelle version de LOAD RUNNER mais 
bien un outil de program motion, et je selec- 
tionne MEMSOFT. 

Trois-quarts de tour de disquette plus loin, je me 
retrouve en paysage familier : ca ressemble a MEM 
BASIC IBM comme deux gouttes d'eou, 

Alors voila, MEMSOFT ca se compose de trois par- 
ties principals . La premiere, e'est MEMBASIC : un 
Basic puissant et structure, un beau Basic de ges- 
tion avec une precision de 14 chiffres stgnificatifs 
des instructions comme DO..LOOP, SELECT. .CASE, 
IF. .THEN. .ELSE multilignes avec la possibility d'uti- 
liser des etiquettes de branchement. 

Pour le debbugoge, MEMBASIC permet de tracer le 
programme dans une fenetre independante... un 
vrai pi ai sir . 

Mais MEMSOFT, ce n'est pas seuiement un BASIC 
puissant ; e'est aussi, et surtout, un gestionnaire 
de fichiers qui vous libere de la programmation 
laborieuse, penible et repetitive des classiques 
creations, recherches, effacements de fiches. 

MEM-FILE structure ses donnees en arbres B, 
systeme presentant un ban compromis entre les 



organisations arborescentes et les organisations 
sequentielles. Si vous avez dejd ecrit une gestion 
de fichiers en arbres B, vous savez que I'ecriture 
des modules de base n'est pas a la portee du pre- 
mier basicois venu. MEMSOFT permet a ce meme 
basicois d'utiliser ces structures avec presque 
autant de facilite qu'il a ecrit, il y a une demi-heure 
et pour la premiere fois, PRINT "BONJOUR". 

C'en est ecceurant : les applications de haut niveau 
en gestion compta etc. deviennent d'une telle faci- 
lite que I'on se dit que pour continuer a program- 
mer dans un autre langage, il faut soit etre maso- 
chiste, soit ne pas avoir lu cet article ; d'autant que 
les gens de MEMDQS ont cree un autre utilitaire : 
MEM-SCREEN qui est, a la saisie, ce que MEM-FILE 
est au f ichier : vous definissez une fenetre, des tex- 
tes a afficher, des zones de saisie, des formules de 
ca leu I, des cont roles sur les saisies et des formats 
d'affichage ; MEM-SCREEN se debrouille pour gerer 
tout cela. 



HON JE NE SUIS PAS 
VENDU A MEMSOFT 

Pour ne rien vous cacher, MEMSOFT, j'aime bien, 
comme j'aime bien tous les bans produits qui nous 
facilitent la vie a nous autres, pauvres informati- 
ciens. C r est vrai quoi, a force de ne penser qu'a 
I'utilisateur final et a son contort, on oublie un peu 
que les developpeurs passent tout de meme pas 
ma I de temps devant leur clavier et ont des tau x 
dadrenaline inversement proportionnels a lo 
vitesse de leurs compilateurs. 

Alors vive BORLAND, brovo MEMSOFT S 

Eh oui ! En France, on a plein d'autres bonnes cho- 

ses, en dehors du Camembert et du Bourgogne ! 



Pour devenir un as du CSBasic, offrez-vous : 

Un ouvrage 

TREMPLIN MICRO 



DU CSBdSiC 



de plus de 260 pages. 



Utilisez le bulletin de commande, a la fin de la revue 
/ RACE IE / — — — — — — 



/ Marc FREFOYE — APPLESOFT / 



Comment determiner quel est le 
plus grand nombre d'une serie ? 

Certe routine-exemple construit d'abord une serie de 45 nombres aleatoires, plus petits que 999 (ligne 125). Notez 
que la vfrgule de la ligne 130, 6 droite de N(l), permet un affichage outomatique sur 3 colonnes. Pour obtenir un 
bon alignement, on augmente la valeur de SP (SPC) quand le numfro du rang est inferieur a 10. La recherche est 
effectuee dans la boucle des lignes 135-1 50. Le cos de plusieurs nombres identiques n'est pas prevu. 



too 


TEXT : PRINT CHRf <17>: HOME 


BOEE 


105 


DIM NC45) 


578E 


110 


INVERSE ; PRINT ■ ** LE PLUS GRAND NOMBRE D'UNE SERIE ** M 


596D 


115 


NORMAL ; VTAB 3 


29AC 


120 


FOR I = 1 TO 45 


5CF5 


125 


NCI) = 1 + INT <; RND < 1 ) * 998) :SP = 2: IF I < 10 THEN SP = 3 


FB51 


130 


PRINT Is SPC< SP)iN<I),; NEXT 


3CD8 


135 


FOR I = 2 TO 45 


4AFA 


140 


IF N( I > < = N(CHERCHE) THEN 150 


EA21 


145 


CHERCHE = I 


E40B 


150 


NEXT 


0582 


155 


VTAB 20; INVERSE : PRINT N(CH>!! NORMAL 


4D0C 


I 6 


PRINT ■ est le plus grand - positions "s: INVERSE : PRINT CH: NOR 






MAL 


B950 


165 


VTAB 22: PRINT " PRESSE2 UNE TOUCHE "j: GET R*i VTAB 2i CALL - 95 






8: LIST 120.160 


92B2 


170 


PRINT : UTAB 22 i PRINT VE>ncore <B)asic <S)tartup di squette ;ctG 






" • ■ GET R* 


AC 9 8 


175 


IF R* = "E" OR R$ = *e" THEN RUN 


5A89 


180 


IF R* = 'B" OR R* = "d" THEN HOME : END 


3728 


185 


IF R$ = "S u OR R$ = N s" THEN PRINT CHR$ <4>;"RUN /T20/STARTUP" 


92FA 


190 


GOTO 170 


3F43 



Melange aleatoire d'une serie de nombres 

Le procede est dassique. II fonctionne de la meme maniere avec des variables alphanumeriques. Vous I'utiliserez 
dans bien des cas : anagramme d'une phrase, melange de mots... Notez que la liste de base est detruite, ce qui est 
ici sans importance, mais pourrait devenir genant dans bien des cas. II conviendrait done de la sauvegarder even- 
tuellement dans une autre variable. A la ligne 155, la variable incremented a chaque tour de boucle, est ulilisee 
pour creer un saut de ligne supplemental. On obtiendrait le meme resultat avec IF 1/3 = INT (1/3) THEN PRINT. 



100 TEXT : PRINT CHRS <l?)j HOME BOEE 
105 NOMBRE = 24: DIM NBASE(NQ) .NMELE(NQ) 68?B 
110 INVERSE : PRINT ■ ** LE MELANGE ALEATOIRE D'UNE SERIE ** ■ 4469 



RANG 



A LEA 



/ PAGE 17 / 



I / MLMM / 



1 i ste de base detru i te 



1 1 5 NORMAL ! VTAB 3 

120 FOR 1 = 1 TO NO:NBASE<I) = It NEXT 
125 FOR I = N OMBRE TO 1 STEP - J 
130 MELE = 1 + INT < RND <1) * I) 
135 NMELE(I) = NBASECMELE) 
140 NBASECMELE) - NBASE<1>: REM Attention! 
145 NEXT 

150 FOR I 3 1 TO NOMBRE : E* = " ": IF I > 9 THEN E* = a 1 

155 PRINT E*;: INVERSE : PRINT I;: NORMAL i PRINT " ™NMELE< I ) . : J = J 

+ 1 s IF J = 3 THEN PRINT :J ■ 
160 NEXT 

165 VTAB 22: PRINT "PRESSEZ UNE TOUCHE "it GET R*: VTAB 2: CALL - 95 
8: LIST 120,160 

170 PRINT : UTAB 22: PRINT ■(E)ncore (B)asic <S)tartup d i sque t te :ctu 

■ ; : GET R* 
175 IF W = 'E" OR R$ = "e" 
180 IF R$ = "B" OR R* = "b" 
185 IF R* = "S" OR R* - 
190 GOTO 170 



THEN RUN 

THEN HOME : END 

THEN PRINT CHR$ <4> s'RUN /T20/STARTUP" 



29AC 
C93B 
9D10 
E380 
7FB8 
16B0 
05B2 
11 9F 

1EE1 
0582 

92B2 

AC98 
5A89 
3728 
92FA 
3F43 



roraux 



Double totalisation 
des nomhres d'une table 

La encore, il s'agit d'un exemple. Les nombres sont aleatoires, rnais pourraient naturellement proventr du clavier. 
Le nombre de colonnes peut etre augmente, mais il serait alors souhaitable, voire necessaire, de passer en mode 
80 colonnes. Vous adopterez facilement cette routine pour vous programmer un mini-tableur ! 



100 TEXT : PRINT CHR* (17)! HOME 

105 LIGNES = 15:COL ■ 4: DIM TABLEaiGNES,COL) .TCLIGNES) ,V<C0L + 1) 
110 INVERSE : PRINT " ** DOUBLE TOTALISATION D'UNE TABLE "** " 
115 NORMAL ; VTAB 3 :NALEA = 99998: REM Nbre maximum-1 
120 FOR I = 1 TO LIGNES 

125 FOR J = 1 TO COL ™*Z 
130 TABLE< I * J) = 1 + INT ( RND < 1) * NA) 

135 HTAB (J » 7) + i " LEN < STR* < TABLE < I , J) ) > : PRINT TABLE ( I , J> ! 
140 T(I> = TCI) * TABLE<I,J):WJ> - V<J) + TABLE U, J) 
145 NEXT iWCGL * 1) - V<COL + J) + TCI) 

150 PRINT - > "i RIGHT* <<* — * STR* (TCI))). 7): NEXT 

155 FOR I - 1 TO 10: PRINT NEXT ^0 

160 FOR I = 1 TO COL + 1 :AF* = RIGHT* C<" * STR* <V<1)>).7> 

THEN PRINT ■ > *\ 



5450 



AC98 



: IF I = COL + 1 
165 PRINT AF*;; NEXT : PRINT 

170 PRINT : "/TAB 22: PRINT "<E)ncore CB>*»ic (S)tartup d i sque t te I ctG 

" * * GET R* 
175 IF R* = "E" OR R* = "e" THEN RUN 

180 IF R* = "B" OR R* = "b" THEN HOME : END 

185 

190 GOTO 170 



IF R* = "S" OR R* = "5" THEN PRINT CHR* (4): "RUN /T 20/ START UP" 

3F43 



/ PAGE IB / 



~— ^ — — — ^— ^— / Claude Aubry / 

DEUS EX MA CHINA 



II y a quelque temps Dieu, ayant decide d'informatiser le paradis, fit venir un hataitlon 
d'archanges-analystes pour definir un projet a la dimension de so grandeur. 

fls'agissait de calculer la surface de nuages dont disposait chaque elu et de verifier que cette 
surface etait bien conforme a ses merites, mesures en norme ANSY. Le directeur du projet un 
ange ecossais du nom de MAC INTOSH propose de stacker en me'moire etheree (nous, nous 
dinons plutot vive) f et sous forme de tableau, un nombre fixe de bienheureux, reperables 
grace a une icone en forme de poire d'ailes. Dieu pourrait ainsi etudier le cas de chacun en le 
de" sign ant d I 'aide de la sour is placee a sa droite. 

DIEU qui avaif d'autres choses en tete dit : "Que cela soit". Et cela fut. 

Or, il advint que MAC-INTOSH, soucieux d'economiser la memoire etheree, n'avait reserve de 
place que pour 8 milliards de candidats, et que le 8 milliard unieme etait justement le pope, 
Vu HmpossibilitS dexpliquer a un pope que son admission au paradis etait impossible a cause 
d'un Bug de I'Ordinateur central, Dieu fut mis au courant et entra dans une grande colere. 

II convoqua /MCINTOSH et le renomma MAC ft, puis il dit tres fort afin que chacun entende 
Sa Parole : "LA GESTION DE LA MEMOIRE ETHEREE DEVRA ETRE DYNAMIQUE CHAQUE FOIS 
QUE LE NOMBRE DE DONNEES NE SERA PAS PREVISIBLE ! » 

Puis Dieu crea les listes chafnees et les arbres bmaires, et Dieu vit que cela etait bon et 
retourna se coucher. 



LA CESTIQN DYNAMIQUE PES DONNEES 

Un probleme angoissant se pose a tout program- 
mer consciencieux lorsqu'il desire memoriser un 
certain nombre de donnees, nombre a priori inde- 
termine au moment de I'ecriture du programme. 

En Bask APPLESOFT, la seule structure existonte 
etant le tableau dimensionne d I'avance par J'ins* 
truction DIM, trois solutions sont possibles : 

1. On surdimensionne le tableau et Ton gaspille 
ainsi de la place memoire. 

2. On eait une bidouille en I an gage machine qui 
permettra de redimensionner le tableau au fur 
et d mesure des besoins. 

3. On ecrit un programme en langage machine 
qui va r^server de la place a une adresse 
memoire a laquelle Basic n'a pas acces, stac- 
ker les donnees, retourner au programme 
appelant I'adresse d laquelle sont stockees ces 
donnees. 



La premiere approche est couteuse en emplace- 
ments memoire et dangereuse : on n'est jamais sur 
que Ton a prevu suffisamment de place. 

La deuxieme technique est une approche peu digne 
de la gestion dynamique de I'espace memoire (je 
n'aime pas beaucoup les instructions modifiees). 

La troisieme methode peut vous apporter richesse 
et celebrite si vous commercialisez voire pro- 
gramme (attention ! je prends 10%) et e'est tres 
exactement ce qui se passe dans les outres langa- 
ges, moins handicapes moteurs. 

MALIOC ET CAUOC SONT DANS UN BATEAU 

Pascal et C ont quelques points communs en ce qui 
concerne la gestion de la memoire. L'un et J'autre 
disposent d'un espace memoire disponible pour 
(allocation dynamique. Il s'agit de la zone appelee 
le heap (en Frangais le tas). 
Faites un petit effort de memoire : (suite page 20). 



/ PACE 19 / — 



/ DEUS EX MA CHIN A / 



quand je vous avais parle des pointeurs, je vous 
□vais mis en garde contre les creations de poin- 
teurs sauvages, vous disant que la declaration 
suivante : char *bidule; creait un pointeur vers 
un objet nomme bidule, que ledit objet devait 
etre de type caractere, mais que pour I'instant il 
n'existait pas et n'avait pas de place reservee en 
memoire. 

Sournoisement, je ne m'etais pas tellement etendu 
sur ce qu'il fallait faire pour reserver de la place 
pour I'objet, et je suppose que certains 
scanf (" %s \biduie) ont du faire des degats. 

C propose deux instructions essentielles pour utili- 
ser le heap. II s'agit de malloc (memory allocate) et 
de collac (contiguous allocate). 

Malloc sert 6 reserver de la place pour un seul 
objet et co Hoc pour ptusieurs objets de meme 
type. 

Malloc admet, comme argument, la taille (unsi- 
gned) de I'objet pour lequel on desire reserver de 
la place et retourne un pointeur vers la memoire 
reservee, en considerant par convention que ledit 
objet est de type CHAR. 

['utilisation de malloc passera done par le calcul de 
la taille de I'objet a memoriser et par un change- 
ment de type (cast) si I'objet en question n'est pas 
de type char. 

En pratique, le calcul de la taille est effectue par 
I'operateur "sizeof" et le changement de type 
s'effectue par : 

nouveau type = (nom de_type) ancien — type. 

Si, par exemple, vous voulez reserver de la place 
pour un objet de type float, la procedure normale 

est : 

float *reserve; /* on reserve de la place pour le 
pointeur, mais pas pour I'entier */ 
reserve = (float *) malloc (sizeof (float)); /* Cetfe 
fois de la place pour I'entier */ 

Calloc fonctionne de la mime facon, mais un para- 
metre "n" permet de reserver de la place pour n 
objets de meme type. 

reserve - (float *) cal loc(1 00 ,sizeof (float)) 

reservera la place necessaire au stockage de 100 
objets de type float. 

Je vois des Pascaliens froncer mechamment les 
sourcils. Je sais que les change men ts de type font 



dresser tous les poils des adeptes de Saint NIKLAUS,.. 
mais, que voulez-vous, I'efficacite est a ce prix, et 
puis vous pouvez toujours ecrire : 

£defin» MALLOC(x) ((x *) malloc (sizeof(x))) 
Edefine CALLOC{n,x) ({x *) callocjn, sizeof (x))) 

reserve = CALLOC( 100, float); /*pratique, non t */ 

Pour une raison qui m'est inconnue, calloc et 
malloc font toujours peur aux debutants en C .11 
faut absolument se debarrasser de cette phobie 
ridicule : moi qui les frequente regulierement, je 
peux vous I'affirmer calloc et malloc sont tout 6 
fait adorables, 

LA LIBERATION DES ESP ACES RESERVES 

Bien que geree dynamiquement, la zone de heap 
n'en est pas pour autant infinie. II faut done pou- 
voir liberer un espace que I'on n'utilise plus et 
e'est le role de I'instruction free(bloc) ou bloc est 
un pointeur vers une zone reservee par malloc 
ou calloc. 

Dans I'exemple precedent free{ reserve) restitue 
au heap I'espaee de stockage des 100 objets de 
type float. 

UN EXEMPLE SIMPLE DE CESTION 
DYNAMIQUE : LA USTE CHAiNEE 

Avant de partir explorer le monde infini des allo- 
cations dynamiques, je vous propose un petit 
exemple tres simple : la lisle chamee. 

Vous pourrez, partant de cet exemple, cons- 
truire des structures de plus en plus complexes, 
et gagner 5(30000$ en faisant le traitement de 
texte ou le tableur qui manque le plus au GS. 

Une lisle chamee est une suite ordonnee d'objets 
appeles noeuds. Un noeud est une structure com- 
portant un abjet (ou un pointeur vers un objet) et 
un pointeur vers le noeud suivant. 

En C, une telle structure stockant des entiers 
peut etre fournie par : 

struct noeud 

{ 

int objet; 

struct noeud * suivant; 
} 
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La representation graphique d'une telle structure est donnee ci-dessous 



poi'nteur vers suivant 




pointeur vers suivant 




pointeur vers suivant 








< 


pointeur vers element 


pointeur vers element 


pointeur vers element 



c 



element 



D C 



element 



element 



-( ^NULlT ) 



Deux nceuds de la liste sont un peu porticuliers : le 
noeud terminal, facile a identifier puisqu'il ne 
pointe vers aucun autre, et le noeud de depart. 

Le plus souvent, on localise le noeud de depart a 
I'aide d'une structure particuliere, la tete de liste, 
qui peut, en plus du pointeur vers le premier ele- 
ment, comporter des informations sur la liste consi- 
deree dans sa global ite : nombre d'elements, poin- 
teur vers le dernier element. 

Le petit programme que je vous propose, vous 



offre les outils de creation de liste ehamee. A vous 
de I'ameliorer, de creer par exemple un algorithme 
de suppression d'elements, de recherche, d'inser- 
tion, de modifier la liste en en creant une double 
(pointeur vers lelement suivant et precedent), de 
faire une liste des listes, etc. 

Vous en avez bien pour deux mois de travail... 
bon courage ! 

H.D.L.R. : Ce programme a ete eerit en TURBO G. 

A nos lecteurs de I adapter sur Seur GS i 



IIIIUIIIIIU L'INFERNAL DOCTEUR MALLOC ////////////// 
Compilateur TURBO-C et IBM AT2 a adapter pour GS 
Claude Aubry 1 988 

#include <stdio,h> 

#deftne MALLOC(x) ((x *) malloc(sizeof (x)» 
#define CALLOC(n.x) <(x *)caIloc(n,si2eof(x))) 
#define VRAI t 
#define FAUX 
#define BOOLEAN int 

/* 

** DEFINITION DES STRUCTURES 
*/ 

/* 

un noeud de la liste comporte 

un pointeur vers une chaine de caracteres 

un pointeur vers le noeud suivant 
v 
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struct noeud 

{ 

char *pointeur_element; 
struct noeud *suivant; 

}: 

typedef struct noeud typenoeud; 



La tete de liste comporte: 



un entier correspond ant au nombre d' items dans la liste 
un pointeur vers le premier element 
un pointeur vers le dernier 



*/ 



struct tete 
{ 

int nbitems: 

type_noeud *premier,*dernier; 

}; 

typedef struct tete type tete: 
f* 

** DEFINITION DES FONCTIONS DE MANIPULATION DE LISTES 

V 

/* V 

f* 

** FONCTION initialise teteQ 
** 

** Reserve place memoire pour structure tete de liste 

** Initialise nb_items a 

** fait pointer premier et dernier vers NULL 
*# 

** renvoie un pointeur vers la tete de liste 
*/ 

/* 



typetete *inftialise_tete{) 
{ 

typejete *nouveau_noeud; 
if ((nouveau noeud=M ALLOC (type tete))!=0) 
{ 

nouveau_noeud-> nb_items=0; 

nouveaunoe ud-> premier= nouveaunoe ud-> derni er= NU LL ; 
} 

return (nouveaunoeud) ; 
} 

/. *} 

f* 

*" FONCTION fabrique_noeud(val,ptr) 

** Reserve espace pour un nouveau noeud (seulement pointeurs) 
** ("allocation memoire pour ('element a inserer doit etre effectuee 
** val est un pointeur vers une variable de type char 
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** ptr est de type pointeur vers structure noeud 

** Retourne un pointeur vers structure 

*/ 

I* 

-/ 



type noeud *fabrique_noeud(pointeur_donnee5,pointeur suivant) 

char *pointeur_donnees; 
type_noeud *pointeur suivant: 
{ 

type noeud *nouveau_noeud; 

if ^(nouveau_noeud=MALLOC(type_noeud))!=0) /* si memoire suffisante */ 

no uveau noe ud- > poi nte ur e !e ment= pointeur don nees ; 

nouveau_noeud->suivant=pointeur suivant; 

} 

return(nouveau noeud): 
} 

I* */ 

/* 

FONCTtON ajoute_noeud(donnees 1 liste) : 



** 
** 

** ajoutenoeud un noeud en fin de lisle 

V 



r 



BOO LEAN ajout enoeu d (po inteu r_don nees, list e) 

char * pointeur donnees; 
typetete *liste: 

i 

type noeud *nouveau noeud. 
/* si allocation possible pour le nouveau noeud *f 
if((nouveau_noeud=fabrique noeud(pointeur_donnees.NULL))!=0) 

/* s'il y a deja des enregistrements on chaine */ 

if(liste->nb_items) liste->dernier->suivant=nouveau noeud; 

else liste->premier=nouveau_noeud; /* sinon pointeur sur le premier */ 



fiste->dernier=nouveau noeud: 
liste-> n b_ite ms++ ; 
return(VRAI); 
} 

else 

return(FAUX): 

} 



(suite du programme au verso). 



Depuis le rtumero 14 de Tremplin 
Micro, Claude Aubry accomplit de 
louables efforts pour initier nos lecteurs 
au langage C . 

Notre courrier nous prouve chaque jour 
davantage qu'il est sur la bonne voie. 
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IfHfilllllii PROGRAMME PRINCIPAL ////////////// 

*t 



typejete *liste_items; 
typejioeud *parcours lisle: 

mainO 
{ 

char *x,*buf: 
int i. random; 

/* reserve place pour buffer de donnees */ 

buf=CALLOC(80.char); 

lisle rtems=mitialise_teteQ ; 

/* On memorise un nombre aleatoire de donnees */ 

random=rand{): 

lor (i=0;i<=random;i++) 



/* On gen ere un nouvel element (un nombre aleatoire en base 2) */ 

itoa(rand0.buf,2); 

/* On alloue de la place memoire au nouvel element */ 
rf((x=CALLOC(strlen(buf) +1 .char)) !=0) 

/* si la place peut etre reservee, on ajoute le pointeur vers I'element a la tiste */ 

strcpy(x.buf); 

ajoute_noeud(x.liste items); 
} 

else printf(«\nPlus de memoire !!!»); 
} 

/* On affiche le contenu de la liste */ 



TURBO C Schumann Bien debuter 

Decouvrei la progrommolion systerne en TURBO C. 
Apprenei In bases du langageC , 6 fade d'exemples prati- 
ques, de tract, d'astuces, et evitez atnsi les pieges les plus fre- 
quents. Etudiei pas a pas les instructions et les operateurs 
indispensable* : le traitemen! de cbaines de caraeteres, les 
pointeurs, les boucles. les sfructures..- et sachei ereer votre 
bibliotheque de fonctioos personnel isees. Enfin, lancez-vous 
darts la programmotion sans aucurw apprehension : grace a la 
liste des erreurs les plus couranles et de leurs solutions, pro- 
gressez lacilement dons votre etude de TURBO C 
BIEN DEBUTER TURBO C vous aide a acquerir des bases sol ides 
pour prendre un bon depart dans la programmation du langageC- 

Version 1 ,5 ind use . 300 pag« - Prix ! 149 F 

!fTSffl^A« - «.. : (»«> «*XM. 



parcours Jiste= tisteitem s-> p remie r ; 

i=0; 

do 

{ 



printf(«\nlTEM numero %3d : %8s>\i++.parcoursjiste->pointeur_element); 
parcours_liste= parcours liste->suivant; 
} 

while(parcoursjiste) : 
} 




Excusez rnoi. on m'appelle au telephone... 
Alio. oui. Claude Aubry. qui ca ?... 

MULTINATIONALE PARADIS PERE ET RLS.-Surtout ne quittez pas.. 
Amis lecteurs a dans deux mois...travaillez bien... 
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STERE OPHONIE 

sur voire Apple IIGS 



Les copacites sonores de I'Apple //G5 sont excep- 
tionnelles, mais le haut-parleur interne etant inca- 
pable de prouesses acoustiques, elles res tent coin- 
cees dans la bolte ; quant a la prise de sortie dispo- 
nible a I'arriere de la machine, elle est monaphoni- 
que et particufierement bruyante lors des acces 
disque. 

Apple a prevu un petit connecteur qui permet 
d'acceder directement au synthetiseur Ensoniq et, 
pour quelques composants de plus, nous allons voir 
qu'il est possible de disposer d'une sortie stereo 
permettant de raccorder notre machine favorite 
sur une chame de qualife Hi-Fi. 

L r effet est saisissont et ('utilisation d'un logiciel 
comme Musique Studio devient tres attrayante. 
Certains jeux sont aussi particulierement reussis 
au niveau sonore. 

Examinons le connecteur de J'Ensoniq que Ton 
trouve en bas de la carte mere, a gauche du slot 
d'extension memoire. 

Nous trouvons : (du has vers h hout) 

broche n°l : entree de I'Ensoniq (permettant la digitali- 

sation des sons), 

broche n°2 : masse du circuit sonore. 

broche n°3 : sortie du synthetiseur. 

broche n°4 : bit d'adresse de voie sonore (A0) 

broche n°5 : bit 1 d'adresse de voie sonore (AT ). 

broche n°6 : Strobe d'adressage (STR). 

broche n°7 : bit 2 d'adresse devoie sonore (A2)> 

Comment pouvons-nous disposer de deux signaux 
sonores independents sur i "unique sortie du 
synthetiseur ? 

En fait, le signal onalogique present sur la broche 
n°3 est decoup£ en tranches representant chacune 
une fraction du signal sonore de la voie de droite 
ou de gauche : on dit que le signal est multiplexe. 
II suffit afors d'oiguiller chaque tranche de signal 
respect ivement a droite ou a gauche ; un interrup- 
ted electronique synchronise sur la frequence de 
mwltiplexage remplira ce role. Un filtre passe-bas 



eliminant toute frequence superieure a 15 kHz res- 
titue ensuite au signal sonore sa forme originale. 

La figure n°l il lustre ces explications. 

La reolite est un peu plus complexe car le signal est 
en fait decoupe en 16 tranches correspondent a 
chacune des 16 voies disponibles ; en utiiisant le 
bit de selection, qui change d'etat d chaque incre- 
mentation du numero de voie, nous aiguillons tou- 
tes les voies paires a droite et les impaires a gau- 
che, ce qui nous donne bien deux signaux distincts. 

La figure n°2 nous donne te schema de principe 
detail le de la carte stereo : 

• L'ampli IC1 conditionne le signal de sortie de 
I'Ensoniq. Celui-ci est ensuite dirige sur les 
entrees X0 et Yl de IC2, qui est un demulti- 
plexeur 2 fois 4 voies vers 2 (fes 6 entrees inuti- 
lisees sont reliees a la masse), lequef aiguille le 
signal sonore vers ses sorties SX ou SY en fonc- 
tion de I'etat de la broche B (bit d'adresse de 
voies A0). 

• Le circuit IC3 ne sert qu a transformer la logique 
5 volts en logique 12 volts, le reste des circuits 
etant alimente en + et — 12 V pour une meil- 
leure dynamique du signal sonore. 

• Nous trouvons ensuite le filtre passe-bas 24 dB 
par octave construit autour du double ampli IC4 
(IC6 pour la voie de gauche), so frequence de 
coupure se situant aux environs de 15 kHz. 

■ L'ampli ICS adapte le niveau de sortie a une 
valeur suffisante pour attaquer n'importe 
quelle entree Auxiliaire' d une chame Hi-Fi. Le 
gain peut etre adapte aux besoms, en modi- 
fiant la valeur de R15 (et R16) suivant la formule 
G = R15/R9. 

• Un petit interrupteur jfacultatif) permet de 
relier les deux sorties en cas de son monopho- 
nique pour qu'il soit tout de me me present sur 
les enceintes droite et gauche, 

• La carte preleve son alimentation + et — 12 V 

de I'un des Slots. . . (suite page 26). 
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9 (le slot 4 par exemple car la souris etont un 
organs indispensable dans tous les logiciels du 
GS, il y a peu de chance qu'une autre carte 
vienne s'y loger), deux resistances et deux con- 
densateurs filtrent les bruits presents sur les 
tensions d'a I i mentation du GS; les condensa- 
teurs de 100 nF places pres des circuits integres 
ont aussi pour but de supprimer tout parasite 
indesirable. 

• Le + 5 V de IC4 est fobrtque a I aide d'une diode 
Zener? ('utilisation du 5 V de I'ordinateur aurait 
conduit a la fabrication d'un circuit imprime 
double-face plus difficile a realiser par un 
amateur. 

La figure n°3 represente le circuit imprinte" d 
I'echelle 1 1 il est assez simple pour etre realise 6 la 
main directement sur la plaque cuivree. L'auteur 
peut fournir un circuit grave et perce a ceux que ce 
travail rebuterait. 

Pour le montage des divers composants, se repor- 
ter au schema n°4 qui est plus explicite qu'un long 
discours (ne pas oublier les ponts SI a SA)t quatre 
f Us suffisent pour relief la carte au connecteur de 
TEnsoniq; bien respecter le sens de montage 
represente. 

La carte ne necessite oucun reglage et doit fonction- 
ner du premier coup (ne pas oublier de couper Tali- 
mentation de I'ordinateur pour toute manipulation de 
mise en place, un incident est trop vite arrive !). 



Les composants sont classiques et disponibles dans 
toutes les boutiques delectronique. 

Nomenclature ties composants : 

Rl = 10 K Ohms 

R2aR14 = 5,6 K Ohms 

R15, R16 = 22 K Ohms 

R17, R18 = 100 Ohms 

R19dR21 = 220 Ohms 1 Watt 

CI = 68 pF mylar ou ce>amique 

C2, C3 = 2,7 nF mylar ou ce>amique 

C4 r C5 = 1,5 nF 

C6, C7 = 2,7 nF 

C8, C9 = 1,5 nF 

CIO, C11 = 120 pF 

CI 2 = 4,7 micro FTantale 10 V 

C13 r C14 = 47 micro FChimiques 16 V verticaux 

C15 6C22 = 100 nF mylar ouTantale 16 V 

(respecter alors le sens de montage) 
IC1 ■ LM318ouLM741 

IC2 = MC 14052 
IC3 = 7407 
IC4dlC6 = TL072ouTL082 
1 prise de sortie Jack stereo 3,5 mm 
1 connecteur Molex 7 trous 
1 mini-interrupteur. 



Nous disposons d'un tot timitd de circuits imprimes (y compels les plaquettes annexes pour ceux qui retien- 
dront la formule "prise et interrupteur sur facade arriere"), Vous pourrez obtenir ce support en utitisant le 
bulletin de commando, 6 la fin de la revue (il ne s'aglt que d'une participation aux frals de port et d'embal- 
lage). Attention I notre stock est limite et ne sera pas renouvele' I 

Vous trouverex les composants chex les revendeurs specialises. Leur coOt total ne devroit pas d&passer 100 F. 
Le prototype de la carte de Jacques KEY a ete teste par Emile SCHWARZ et Yvon KCENIG. 



Mote ti'Vvan KOENIG 



Les schemes electron iques ont ete realises a I'aide de VS. DRAW qui est, a mes yeux, le meilleur 
logicief GS de VersionSOFT. Je profite de /'occasion pour donner quelques details sur 1'uHlisation 
de ce programme lors des impressions. 

Com me tou jours, if faut s'assurer de la presence dons le 'directory' FONT de la (ou des) poiice(s) 
de caracteres employee(s) dans le document. La figure n°2 utilise la police STUTTGART et en 
son absence, les caracteres sont imprimes en SHASTON ce qui provoque des 'chevauchements'. 

Pour obtenir une impression correcte if faut selectionner i 



• mode reduction 50% (il n'y a pas de carte Orange) 

• impression couleur 

• option couleur 
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Le non respect de ces dernieres indications 
conduit a {'absence sur papier d'un des brins 
_l du cable de liaison au connecteur J25. 
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72 m Man 



° I i 1 1 1 1 1 f*l 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 : - 



Vue cote cuivr? 



Decouper lo plaque en tenant 
compte des coles moximum 
indiquees. 



Cetie carle presentant une diffe- 
rence par rapport au plan publie, 
f>e pos implanier les eomposonts 
raves, placer le pont supplemen- 
taire S5 et installer correctemerit 
\e% conducleurs dons la rangee de 
acreages situee ou-dessus de CI 3- 




Implantation des Composants 
Variants de montage de la prise de Sortie 



Circuit vu du cite 



lit pas installer sur 
la carte 




] Prised* Sortie 



Z2 Hfrfto 

Stereo 



o— 

o 

o 

D 

a 

o— 



La plaquetle support sero lixee a laide 
de deux vis de 3 mm dans l ime des 
ouver lures siluees a l arriefe au I IGS 
Les percages non coles seronl realises 
en fond ion du model e de prise el 
d'interrupleor choisi. 
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QUATTRO 



(Borland) 



Men sur que fa hnctionne sur I "Apple IIGS, 
equipe d'un PC Transporter ! 

Vous savez, depuis le dernier numero de 
Tremplin Micro, qu'il est possible d'utiliser 
les logiciels PC sur I Apple IIGS, grace a une 
petite merveille dApplied Engineering (dif* 
fusee par BREJOUX) : le PC Transporter. 
Comme ceh, par curiosite et pour le plaisir, 
mais grace a la hienveillance de Borland 
International, j'ai done teste le fameux 
QUA TTRO sur le GS de Tremplin Micro. 



Premiere lagreabie surprise 



Qu'est-ce que Quattro ? un tableur. Borland pretend 
que e'est le meilleur choix et e'est vrai que I on est 
d'emblee etonne par sa facilite de prise en main et 
par ses possibilites. 

Personneltement, I'ayant dejd longuement essaye (en 
version 5'l/4) sur compatible monochrome, je desi- 
rois surtout voir comment allait reagir son graphisme 
sur mon GS couleur. 

Pas de deception ! Quattro dispose en standard de 
onze types de graphiques et je vous assure que e'est 
joli tout plein ! 

Mieux : ca sort sur imprimante IMAGE WRITER II et le 
resultat vaut celui que j'avois obtenu sur ['EPSON 
LQ2500 reliee 6 mon PC. Vous en doutez ? essayez... 

Sachez que ces graphiques peuvent aussi sortir via un tra- 
ceur ou une photocomposeuse (interface Postcript suppor 
tee]... mais je n'ai pas tente ces deux experiences. 



Cat cut raptde 



Quattro est un tableur rapide r voire tres rapide. On dit 
qu'il doit cette celerity 6 la maniere intelligente dont il 
traite la feuille de cakul. En fait, le gain de temps pro- 
vient du fait qu'il calcule en traitant specifiquement les 
seules cel lules dont on a modif ie les parametres. 



QUATTRO 



I'd Wit* Qii«tiro 




Les macro commandes 



Je ne suis pas rompu au maniement des macro- 
commandes, mais il m'a semble que se familiariser 
avec cedes de ce tableau ne releve pas du tour de 
force. Le deboguage facilite d'ailleurs ('identification 
et la correction des erreurs* 



Pes trues sympas 



Quattro identifie automatiquement le type de la 
machine et de I'ecran utilises. Evidemment, sur 
Apple, i I a ete abuse" — comme il con vient — par le PC 
Transporter, et son identification s'est reveJee exacfe 
puisquil n'y a pas eu de plantage ! 

Le logiciel de Borland lit (et ecrit) directement des 
fichiers utilisobles par Lotus 1.2.3, Symphony, dBase, 
Paradox, ou ASCII, 

Notez au passage que la sauvegarde automotique des 
donnees (Franscript) est fort utile. 

Bref, un tableur de qualite professionnelle, facile 
d'emploi, et aux performances remarquables. 

Marc FREFOYE 

Borland International — 65, rue de la Oarenne 92318 Sevres Cedex, 
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De I'optique 
au numerique 
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t LA SYNTHESE D'IMAGES 
par Bernard PEROCHE 
(collectif) 

La synthese d'images est probablement 
nee en 1963 avec le premier logiciel gra- 
phique digne de ce nom : Sketchpad, 
developpe par I. Sutherland. 

Depuis, les progres n'ont jamais 
cesse et cet essor remarquoble a 
permis h la synthese d'images de 
conquerir de nombreux marches : 
ceux de la CAO. du graphique 
d'affaires, de la simulation ou de 
I'audiovisuel. 

Le but de cet ouvrage collectif esl de 
faire le point sur les techniques, les 
methodes et les algorithmes qui ont 
ete developpes au cours des vingt- 
cinq dernieres annees pour produire 
les images de synthese d un grand 
realisme. 

Il presente les methodes et les algo- 
rithmes utilises pour la synthese 
d'images realistes tridimensionnel- 
les. II d^crit les divers modeles per- 
mettant de representer les scenes 
3D en machine et expose les algo- 
rithmes permettant d'obtenir des 
images d un grand realisme (elimi- 
nation des parties cachees, lissage, 
ombres portees. anti-lissage...} 

295 pages - relie — 320F TTC 

Editions HERMES 51 rue Rennequtn ,75017 PARIS. 
Tel. : (16-1} 43.80.95.7!. 



# NOUVEAU MEMENTO 
TURBO PASCAL 
par Dominique SCHMfT 

Ce livre s'adresse au programmeur 
en Turbo Poscol. II traite de Turbo 
Pascal version 3 sous MS-DOS/PC- 
DOS, et Turbo Pascal versions 2.00 
et suivantes sur compatible PC 

Cest un excellent memento, pre- 
sente avec sobriete, sous une reliure 
tres resistante. On le compulsera 
avec plaisir. Chaque chapilre couvre 
un theme spectfique. Le livre se 
divise comme suit : 

1 . Goneralites sur le langage. 

2. Divers types de donnees. 

3. Diverses procedures et fonctions 
classees par utilisation. 

4. Recouvrement el chaTnage du 
programme, 

5. Structure interne d un programme 
avec les appels systeme et les 
sous-programmes externes. 

6. Utilisation du systeme Turbo Pascal. 

7 . Liste des codes d'erreurs renvoyes 
par le programme. 

8 . Liste des codes renvoyes par les 
touches du clavier. 

Relie - 304 pages - 100 F TTC 

SYBEX 6-8 Impasse du Cure. 75018 PARIS 
741 : (16-I) 42.03.95 95 



• IMAGES 

DE L'OPTIQUE 
AU NUMERIQUE 

par Edmond COUCHOT 

Avec I'ordinateur sont apparus de 
nouveaux processus automatiques 
de generation et socialisation de 
1'image. L'image numerique, en 
effet. nest plus I'enregistrement 
d un objet qui laisse so trace sur un 
support chimique ou mogneYique, 
mais une synthese : le resultot dun 
calcul ou le nombre et le langage de 
la programmation se sont substitu^s 
a la lumiere, 

L'auteur analyse dans cette etude le 
passage de I'optique au numerique 
et les relations que les techniques de 
figuration entretiennent avec les 
arts visuels et la culture. Alors que 
les premieres nous poussaient d 
representer le reel, les dernieres 
nous invitent a le simuler. 
L'image numerique s'ouvre sur un 
univers virtuel, en puissance, a vivre 
et a revivre indefiniment, jamais 
totalement actualisable. Elle boule- 
verse radicalement I'economie 
symbolique de notre systeme de 
figuration du monde. De la capacite 
h comprendre cette nouvelle image, 
a lexperimenter et 6 la rever. 
depend desormais notre culture. 

248 pages — 8 pages couleur 
Broche 240 FUC 

Editions HERMES 51 rue Rennequin. 75017 PARIS 
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CHARGEMENT 

de caracteres personnalises 
pour Image Writer II et GS Basic 



Void un programme qui vous permettra de tele- 
charger des fontes sur votre Image Writer II. Sur la 
disquette d'accompagnement, vous trouverez qua- 
tre polices de caracteres. Deux difficultes majeures 
pour elaborer ce programme : 

1. SetOutGlobals, utilise avec les masques 

appropries, nous permet d'envoyer les donnees 
sans forcer le bit 8 61. 

2. Inhiber la reconnaissance de la commande 
Control-I — CHR$ (9) — par le port serie. 

Depuis le n°19 de Tremplin Micro, j'ai utilise 
—SetOutGlobals, mais le CHR$ (9) me posoit 
encore probleme. J'ai done ete amene a utiliser 
PEEK et POKE, tout en sachant que ce nest pas 
recommande. 




Procedures Ctrlizon et CtrHZoff ; 

On commence par mettre en place le caractere de 
contrdie port serie imprimante, soit CHR$ (9), par 
un POKE 1273,9. Ensuite, PEEK(T529) va lire le con- 
tenu de cet emplacement et, suivant que la valeur 
est superieure a 127 ou inferieure a 128, nous en 
deduirons que le port serie va filtrer le caractere 
de commande contenu en 1273 ou non. Enfin, si 
cette valeur est inferieure a 128, on envoie la com- 
mande de non reconnaissance du Control-I. 

Avant de quitter le programme, il faut remettre en 
place la reconnaissance du Control ! ; pour ce 
faire, on change le masque contenu en 1529 en 
effectuant la soustraction a la ligne 62020. 

Le programme est commente et n'appelle pas 
d'explications supplemental res. 



5 
10 
20 
30 
35 
40 
50 
60 
70 
80 
90 
100 
110 
115 
120 
130 
140 
150 
160 
170 
180 
190 



REM CARAC . PERSO , GSB Charge une fonte et 1" envoie a 1 1 imprimante 
E$=CHR$ (27) :a-l9:P$- w TM20/FONTES/FAPL/ ,, 

DIM Fonte? (255) : REM Faux tableau. . . 

PROC tdf : REM Verifie la presence du fichier texttool.tdf 

PROC CtrlTZOf f : REM Ctrl-I Z plus reconnu 

PROC presente:REM Trace un cadre 

LOCATE 3,10: INVERSE 

PRINT "Utilitaire de chargement de fontes de caracteres personalises"; 
NORMAL : PRINT 

LOCATE 5,a:PRINT "Fontes presentes sur la disquette /TM20/ : " 
LOCATE 7, a: PRINT P 5 "COUNT " : LOCATE 9, a: PRINT P$"EPSDROITE w 
LOCATE 11, a: PRINT P$ n FONETIC™ : LOCATE 13,a:PRINT P$"ITALEPS" 
LOCATE 17, a: PRINT ■ tc) Avril 1988 Tremplin Micro & Emile Schwarz" 
REM 

ON ERR GOTO EPRODOS : REM Si erreur ProDOS... 

LOCATE 20: INPUT "Nom ProDOS COMPLET de la fonte a charger: n ;Fonte$ 
x%-FILE{Fonte$) :IF NOT x% THEN erreur : REM Si x% = 0: fichier inconnu 
OPEN Fonte$, FILTYP=6 FOR INPUT AS£2:REM Nous ouvrons le fichier 
y%«EOFMARK(2) : IF y%>4000 THEN fin: REM Fichier trop grand — > fin 
ERASE Fonte! () :DIM Fonte! (y%) : REM Dimensionne le tableau 

GET£2,y%, 0; Fonte ! (0) :REM Charge le fichier 

CLOSE£2:REM Ferme le fichier 
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195 
200 

210 
215 
220 
230 
240 
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260 
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280 
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300 
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340 
345 
350 
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360 
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380 
390 
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440 
450 
460 
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500 
505 
510 
515 



A tout hasard 



REM 

IF Fonte! (0)027 AND Fonte!(l)<>43 OR Fonts! UK>45 AND Fonte! (2)<>27 

AND Fonte!(3)<>73 THEN fin 
ON ERR GOTO EIWII : REM 
REM 

OPEN ".PRINTER", FOR OUTPUT AS£1:REM 
setoutglobals (255,0) : REM 



Ouvre 1 ' imprimante 
Fixe la nouvelle valeur 'OR' 
Pa3 de LF si ligne pleine 
Pas de CR avant LF et FF 
Pas de LF apres CR 
8° bit reconnu 
Envoie la fonte 



LF si ligne complete 
Ajoute CR avant LF et FF 
Huitieme bit ignore 
Retour en debut de ligne 



PRINT£1;E$"Z "CHR$ ( ) ; : REM 
PRINT£1;E$"11"; :REM 

PRINT£1;E$"Z"CHR$(128)CHR$(0) ; : REM 
PRINT£l;ES"Z t, CHR${0)" " ; : REM 
FOR i%-0 TO y%-l:REM 

PRINT£1;CHR$ (Fonte! (i%) ) ; 

NEXT 

PRINT£l;E$ n D "CHR$ ( } ; : REM 
PRINT£l;E$ n 10"; : REM 
PRINT£l;E$ n D"CHR$ (0) " "; : REM 
PRINT£l f "* * REM 
REM 

REM Ecrit la fonte personnalisee — 

PROC CtrlIZon:PROC recup : REM Active la reconnaissance du CHR$(9)"Z" 
PRINT£1,-E$"!";:REM On passe en caracteres gras 

IF INSTR (FonteS , "EPS" ) THEN PRINT£1; E$"q" ; :REM Compresse 31 
PRINT£1;E$" '"; : REM 
PRINT£1; " 
PRINT£1;" 
PRINT£1; " 
PRINT£1; M 
PRINT£1; " 
PRINT£1; W 



p q 

PRINT£ 1 ; E $ " $ " ; S REM 
PRINT£1;E$CHRS (34) ; 
PRINT£l;ES"E"; : REM 
PRINT£1 ; : REM 
GOTO EIWII: REM 
REM 

REM 

REM 



! "CHR$<34)" £ $ % & ' 
. / 0123456789 
iABCDEFGHlJKL 
QRSTUVWXYZ°Q< 

abcdefghijkl 
rstuvwxyze 



EPS 1 

Debut des caracteres perso. 
( ) * + , - m t 

M N O P"; 



m n 
u e 



i REM 



Fin des caracteres perso. 
Fin des caracteres gras 
Elite 

Retour a la ligne 

Le programme est fini 



Traitement des erreurs et fin 



520 ERREUR: OFF ERR: REM Retour au traitement d'erreur standard 
530 TEXT: HOME: INVERSE: PRINT "Le fichier "FonteS" est inconnu ! " : NORMAL 
PRINT : PRINT "<1> pour CATALOG ™ : PRINT : PRINT "<2> pour Continued 
PRINT: PRINT "<3> pour Fin " 

PRINT : PRINT "Votre Choix: 11 ; : GET $x§ : PRINT x$ 
x=VAL(CHR$ (ASC(x$) -128) ) 
ON x>3 OR x<l GOTO erreur 
ON x GOTO 600 r 40, fin 

INPUT "Norn du volume: ";Volume$:ON ERR GOTO EPRODOS 
PRINT "Appuyez sur la barre d'espace pour arreter le defilement ■ 

PRINT " Ctrl-C pour stopper " 

CATALOG Volumes 

PRINT "Pressez une touche pour continuer" ; :GET$x$ : PRINT xS 
TEXT: HOME: GOTO 40 

Retour au traitement d'erreur standard 
LOCATE, 33: INVERSE: PRINT CHR$(7)"Nom incorrect" : NORMAL 

/ PACE 32 / — ^— — — 



540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 

660 EPRODOS: OFF ERR: REM 
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680 FOR i%-0 TO 1000 

690 NEXT: REM Boucle d'attente 

700 GOTO 40 

710 EIWIZ:OFF ERR : REM Retour au traitement d'erreur 

720 setoutglobals (255, 128) :REM et aux valeurs standards 

730 FIN: END: REM Terminus! 

7 40 REM 

499BQ REM Procedures 

60080 REM 

60090 REM — Charge eventuellement ' texttool . tdf ' et enleve 'AUTO LF 1 — 

60100 TDF : DEF PROC tdf 

60110 LIBFIND "SetOutGlobals" , ol%, f 2%, x3% 

60120 IF ol% THEN 60160:REM Si le fichier a deja ete charge alora. . . 

60130 INVERSE : PRINT "Un instant S VP , " : NORMAL 

60140 PRINT "Je charge le fichier /gsb/tdf 3/texttool . tdf " 

60150 LIBRARY APPEND "/gsb/tdf s/texttool . tdf " 

60160 ASSIGN " . PRINTER" , -1 : ASSIGN " . PRINTER" , 1 : REM Pas d'autO LF 

60170 END PROC tdf 

60190 REM — Affiche un rectangle de presentation a l'ecran 

60200 PRESENTE : DEF PROC presente 

60210 TEXT: HOME: PRINT REP$ ( "-", 80) ™ ! ™; 

60220 FOR I%-0 TO 15 

60230 HPOS=80 :PRINT "!!"; 

60240 NEXT 

60250 HPOS=80: PRINT " ! "REP$ ("-", 80} ; 

602 60 END PROC presente 

61990 REM — Perrnet la reconnaissance du CHR$(9) r, Z" par le port serie — 

62000 IZON:DEF PROC CtrllZonrREM Retablit la reconnaissance du Ctrl-I " 

62010 CtrlIZ%=PEEK (1529) :REM par le port serie 

62020 POKE 1529,CtrlIZ%-128 

62030 END PROC CtrllZon 

62090 REM — Inhibe la reconnaissance du CHR$(9)"Z" par le port serie — 

62100 IZOFF : DEF PROC CtrllZof f : REM Supprime la reconnaissance du Ctrl-I " 

62110 POKE 1273,9:REM par le port serie 
62120 IF PEEK(1529>>127 

62130 THEN OPEN ".PRINTER", AS£1 :PRINT£1;CHR$ <9) "Z"; :CLOSE£l 

62140 END PROC CtrllZoff 

62990 REM — Recupere le nom de la fonte et l'envoie sur 1 ' imprimante — 

63000 RECUP : DEF PROC recup 

63010 LOCAL a%, b% : REM Ce sont des variables locales 

63020 a%»l : b%=l : REM qui ne servent qu'ici! 

63030 WHILE b%<>0 

63040 b%=INSTR (Fonte$, " a%+l) :REM Recherche la presence de "/" 

63050 IF b% THEN SWAP a%,b% 

63060 UNTIL 

63070 PRINT£l;"Test de la fonte " ;MID$ (Fonte$ , a%+l > 

63080 ^^^^^^^^^^^^^^^^^1 

5 REM DEMO . CAR . PERSO 

10 DEBUT : ON ERR GOTO fin:REM A toutes fins utiles,,, 

20 HOME: LOCATE 12, 15 :E$=CHR$ (27) 

30 PRINT "Demonstration des caracteres personalises £a°c§eue"" 

40 OPEN ".PRINTER", AS£l:REM Ouvre le port imprimante 
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50 _setoutglobal3 (255, 0) :REM Nouvelle valeur de «OR' 

60 PRINT£1;E$"Z n CHR$ (0 ) ; : REM Pas de LF si ligne pleine 

70 PRINT£1 ; E$ w ll" ,■ :REM Pas de CR avant LF et FF 

80 PRINT£1 ; E$ w Z"CHR$ ( 128 ) CHR$ (0) ; : REM Pas de LF apres CR 

90 PRINT£1;E$"Z"CHR$ (0) " " ; : REM 8° bit reconnu 

100 BOUCLE:FOR A%=0 TO 94: REM Boucle de lecture/ 

110 READ C% : PRINT£ 1 ; CHR$ (C% ) ; 

120 NEXT .REM ecriture des datas 

130 PRINT£1;E$"D n CHR$ (0) ; :REM LF si ligne pleine 

140 PRINT£1 ; E$**10" ; :REM Ajoute CR avant LF et FF 

150 PRINT£1;E$"D"CHR$<0) " " ? : REM 8° bit ignor6 

160 PRINTtl; : REM Passe a la ligne 

170 CLOSE£l:R£M Ferme proviso irement 

180 OPEN " . PRINTER" , AS£l : REM Pour le rouvrir aussitot ! 

190 PRINT£1; "Demonstration des caracteres: £a°g§eue "; 

200 PRINT£1;E$"* H :REM pebut des caracteres gras 

210 PRINT£ 1 ; E $ " 1 " ; * £a°c§eue " " ; E$"$" ; 

220 PRINT£1 ,-E$CHR$ (34 ) ; : REM Fin des caracteres gras 

230 PRINT£ 1 ; " " : REM Passe a la ligne 

240 FIN: setoutglobals (255 r 128 > :REM Fixe les valeurs standards 

250 CLOSE£l : END : REM C'est termine ! 

260 REM 

270 REM 

280 REM PROL pour Prologue, 

290 REM CAR1 a CAR 9 pour c ha que caractere, 

300 REM EPIL pour Epilogue. 

310 REM 

320 REM — — 



330 PROL: DATA 027,045,027,073 

340 CAR1: DATA 035,072,020,127,020,020,127,020,000,000 

350 CAR2: DATA 064,072,028,034,065,008,085,000,085,014 

360 CAR3: DATA 091,072,000,000,000,127,065,065,000,000 

370 CAR4: DATA 092,072,000,001,002,004,008,016,032,064 

380 CAR5: DATA 093,072,000,000,000,065,065,127,000,000 

390 CAR 6 : DATA 123,072,000,000,008,054,065,065,000,000 

400 CAR7: DATA 124,072,000,000,000,000,127,000,000,000 

410 car 6 : DATA 125,072,000,000,065, 065,054, 008, 000, 000 

420 CAR 9 : DATA 126,072,002,001,001,002,002,001,000,000 

430 EPIL: DATA 004 



440 REM <c) Avril 1988 Tremplin Micro & Emile SCHWARZ 

49970 REM 

49980 REM Procedures 

49990 REM 

60100 TDF; DEF PROC tdf 

60110 libfind "SetOutGlobals r ',ol%,f2%,x3% 

60120 IF ol% THEN 60160: REM Si le fichier a deja ete charge alors . . . 

60130 INVERSE : PRINT *Un instant SVP, 

60140 PRINT "je charge le fichier /gsb/ tdf s/texttool . tdf NORMAL 

60150 LIBRARY APPEND M /gsb/tdf s/texttool . tdf " 

60160 ASSIGN M .PRINTER", -1 : ASSIGN " . PRINTER" , 1 : REM Pas d'auto LF 

60170 END PROC tdf 



IOffrez-vous le bouquin d'Emile... 
A LA DECOUVERTE DU GSBasic 
/ pa cess / 



Voir notre bulletin 
d'abonnement 
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QuickDraw Demo Gsb 



Void comment utilises certains outils de QuickDraw, Pour une plus gronde 
rapidite d'execution, j'ai defini de$ procedures d'acces aux outils a la place de 
sous-programmes "GOSUB / RETURN". 



Cheque appel a un oufll se presents comme suit : 

Pile avant appel 
Contenu avant appel 



Espace pour resultat 
Parametre 1 
Parametre 2 
(eventuellement) 

Pile apres appel 

Contenu apres appel 
Resuftat 



S il y a lieu 

Description du parametre 
Description du parametre 

Pointeurde pile 



S'il y a lieu 
-*— Pointeurde pile 
Chaque parametre peut etre une valeur, I'adresse 
d'une table de parametres ou I'adresse dune rou- 
tine de traitemeni. 

Dans les programmes QD. DEMO I et QD.DEM02 r 
je vous propose deux facons differentes d'utili* 
ser une table de parametres. 



Dans chaque procedure, j'ai incorpore un parame- 
tre c% pour numero de couleur. Vous pouvez cons- 
tater qu'une procedure peut en appeJer une 
outre... (ou en cocher une autre !). 

Pour QuickDraw, une figure simple se definit par 
les coordonn&es des points haut/gauche et 
bas/droit d'un rectangle fictif* Les norm de varia- 
bles de definition de ces points sont V1,H1,V2,H2 
ou. si vous pr^ferez, y,x,v r h, 

* y,x d^finissent fe point haut/gauche, 

v,h le point bas/droit du rectangle. 

J'ai employe plusieurs types de variables dons les 
boucles, chocun correspondent a une volonte de 
lenteur ou de rapidite. En effet, une variable 
entiere indice (suffixe %) de boucle demandera un 
temps d'execution plus rapide qu'une variable 
entiere longue (suffixe &). 



_SetForeColor (sfc%) 
_SetBackColor (sbc%) 
_JAoveTo (y% r x%) 
_LineTo (y%,x%) 



Fixe lo couleur de I'ecriture. 

Fixe la couleur du fond. 

Place le crayon a ces coordonn^es. 

Dessine une ligne depuis la position 

actuelle du crayon jusqu'en y%,x%. 



Les appels outils suivants ont I'adresse 
__DrawSlring (VARPTR (msg! (0))) 
— i nvertrect (VARPTR (recH (CI))) 
_FrameRect (VARPTR (recti (0))) 
_J=rameOval (VARPTR (recti (0))) 
__FrameRRect (VARPTR (recti (0))) 
_FrameArc (VARPTR (rect! (0))) 
JaintRect (VARPTR (recti (0))) 
_PaintOvaf (VARPTR (recti (0))) 
—PaintRRect (VARPTR (recti (0))) 
_PaintArc (VARPTR (recti (0))) 



des parametres en argument : 

Dessine le fexte stocke dans le tableau msg I (0). 

Inverse les couleurs dans le rectangle. 

Dessine le contour d'un rectangle. 

Dessine le contour d'un ovale. 

Dessine le contour d'un rectangle arrondi. 

Dessine le contour d'une portion de cercle. 

Dessine le contenu d un rectangle. 

Dessine le contenu d'un ovale. 

Dessine le contenu d'un rectangle arrondi. 

Dessine le contenu d'une portion de cercle, (suite page 36). 
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Vous pouvez diminuer la valeur de la ligne 20 si votre GS n'a que 512 K. Dans ce cas, 65536 est une 
valeur correcte. Les boucles FOR... NEXT sont sur plusieurs lignes pour plus de clarte et pour contourner 
le Bug de ('indention. 

Voir d'autre part les programmes de patchs de PICS en ce qui toncerne I'aff ichage des caracteres accentues. 



5 REM QD.DEM01 

10 DIM rect!(7):REM Parametres d'un rectangle 

15 PROC outil : REM Charge le fichier quickdraw . tdf 

20 GRAF INIT 320:GRAF ON: REM 320 points/ligne + aff ichage ecran SHGR 
30 y%=10 : x%=10 : v%=20 : h%»30 : REM Ce rectangle contiendra 200 points 
40 SETMrect! (0) ,2)~y%:REM y%,x% - localisation Vl/Hl de 1' angle haut/droit 
50 SET(rect ! (2) ,2)^x% :REM y% - position verticale, x% = position horizontale 
60 SET{rect! (4) , 2) -v% :REM v%,h% - localisation V2/H2 de l'angle bas/droit 
70 SET(rect! (6) ,2>=h%:REM v% = position verticale, h% = position horizontale 
80 ptra=VARPTR(rect ! (0) ) :REM ptra - adresse de la table rect!(0) 
90 SetSolidPenPat (15) :REM Le crayon ecrira en blanc 

100 _PaintRect <ptra> :REM Dessine 1 rectangle en utilisant le tableau rect!(0) 
110 GET$A$:GRAF OFF: END: REM Attente frappe clavier, puis fin 

63100 DEF PROC outil 

63110 LIBFIND "QDStartUp", ol%, f2%,x3% 
63120 IF ol% THEN 63140 

63130 LIBRARY APPEND "/gsb/ tdf s/quickdraw . tdf " 
63140 END PROC outil 

2 » 
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REM QD.DEM02 

DIM msg! (255) : REM Nombre de caracteres maximum 

PROC outil :REM Charge eventuellement quickdraw .tdf 

GRAF INIT 320:GRAF ON : REM 320 points/ligne + aff ichage ecran SHGR 

a$-="Vive le GS Basic!": REM Chaine a afficher 

SET(msgl (0))= A aS:REM Stocke la chaine a$ a la Pascal: 1° octet = longueur 
_MoveTo (10,10) : REM Debut de l'ecriture en 10,10 

SetBackColor (15) :REM Couleur du fond: Blanc 

_SetForeColor (1) :REM Couleur de l'ecriture: Noir 

_DrawString(VARPTR(msg! (0))) : REM Ecrit le message 
GET$A$ : GRAF OFF: REM Attente clavier, puis fin 

END 

DEF PROC outil 

LIBFIND "QDStartUp", ol%, f2%,*3% 
IF ol% THEN 63140 

LIBRARY APPEND " /gsb/tdf s /quickdraw . tdf " 
END PROC outil 



P0URQU0I LECSBASIC ? 



Personne ne vous interdit de programmer en APPLESOFT, mais vous 
n'aurez vraiment acces aux outils du GS qu'en utilisant le Cibtsasic, 
Tune des plus recentes moutures du Basic... 
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10 DEBUT: 

20 

30 

40 

50 

60 

70 

80 

90 

100 SAUTE: 

110 IMAGE 1 : 

120 BOUCLE1; 

130 

140 

150 



170 
180 

190 BOUCLE2: 



210 
220 
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240 BOUCLE3: 
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330 IMAGE2: 

340 
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380 
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400 
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460 
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460 

490 

500 

510 

520 BOUCLE4 



2 Mars 1988") 



REM QUICKDRAW . GSB 
HOME: ON err GOTO erreur 
CLEAR 165536 

b$= w Tremplin Micro et Emile Schwarz " 
c$="Pressez U ne touche pour continuer" 
a$-" IIGS Basic: Quick DrawII Demo " : j%=l 
DIM msg! (256) , rect ! (7J 
LIBFIND "QdStartUp" , ql%, q2% , q3 % 
IF ql% THEN saute 

LIBRARY APPEND "/GSB/TDFS/quickdraw. tdf n 

GRAF INIT 320: GRAF ON 

y%=0:x%=0:v%=200 :h%=320 

FOR I%=0 TO 15 

PROC f ramrect (i%, y%, x%, v%,h%) 
y%=y%+10:x%-x%+10:v%=v%-10:h%-h%-10 

NEXT 

PROC msg (51, 193, 5, 15, a$) 
PROC m 3 g{46,14,6,15,b$) 
PROC pintrect (15, 91,91, 109,229) 
FOR i-15 TO STEP-1 

PROC msg(51,193,15,i,a$) 

PROC msg (4 6, 14, 15, i,b$) 

PROC msg (102, 103, i, 15, M (c) 

NEXT 

FOR A&«0 TO 5 

PROC invrect (0,160,200,320) 
PROC invrect (0, 0,200, 160) 
PROC invrect (100, 0,200, 320) 
PROC invrect (0, 0, 100, 320) 

NEXT 

PROC invrect (0,0,200, 360) 
PROC msg(38,103, 0, 15, cS) 
GET$x$ 

GRAF INIT 320:GRAF ON 

_setsolidpenpat (15) :REM Couleur du crayon: Blanc 

PROC boite(0, 0,200,320) 

PROC pintrect (9, 10, 10, 30, 30) 

PROC msg (5, 40, 0,15, "paxntrect") 

PROC pintarc(8,10,8 0,30,240,-90,-9Q) 

PROC msg (100, 40, 1,14, "paint arc") 

PROC framarc(15,10, 80,30,240,0, 180) 

PROC msg<160,40,2,13, ,, framearc ,, ) 

PROC framrect(3,l0,290,30,310) 

PROC msg (245, 40, 3, 12, "frame rect") 

PROC pintRrect (5, 55, 10, 90, 110, 15, 15) 

PROC msg (11, 100, 0, 14 # "paintRrect") 

PROC framRrect (10, 55,210, 90, 310, 15, 15) 

PROC msg (228, 100, 0, 14, n f rameRrect") 

PROC pintoval(4,120, 10, 170,H0) 

PROC msg (25 ,180,5, 9, "paintoval" ) 

PROC framoval(2, 120,210, 170, 310) 

PROC msg (228, 180, 4, 11, "f rameoval") 

FOR i%=0 TO 13 
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530 PROC pintarc<j%,80,110,150,209,k%,15) 

540 j%»j%+l:k%=k%+30:IF k%>180 THEN k%— k% 

550 NEXT 

560 PROC msg(125, 180, 6,7, "paintarc") 

570 PROC msg<38, 195, 0,15,c$> 

580 PROC invrect <0, 0,200,320) 

590 GET$x$:GOTO fin 

600 ERREUR: OFF ERR:PRINT "?"ERRTXT$ (ERR) ■ error in line "ERRLIN 

610 FIN; GRAF OFF: END 

61997 REM 

61998 rem Procedures 

61999 rem 

62000 BOITE: DEF PROC boite (y% r xl r v%, h% ) 

62001 _moveto(y%,x*) 

62002 _lineto(y%+h%-l,x%> 

62003 _lineto(y%+h%-l,x%+v%-l) 

62004 _lineto £y%,x%+v%-l) 

62005 _lineto(y%,x%) 

62006 _moveto(y%+l,x%+l) 

62007 _lineto (y%+l,x%+v%-2) 

62008 _moveto (y%+h%-2,x%+l) 

62009 _lineto(y%+h%-2,x%+v%-2) 

62010 END PROC boite 

62020 MSG: DEF PROC msg {y%, x%, sf c%, sbc%, a$) 

62021 SET (msg! (0) )= A a$ 

62022 _setforecolor (sfc%) 

62023 setbackcolor (sbc%) 

62024 _moveto(y%,x%) 

62025 _drawst ring {VARPTR (msg ! (0) ) ) 
62 026 END PROC msg 

62 030 INVERT: DEF PROC invrect (y%, x%, v%, h%} 

62031 PROC rect (y%, x%, v%, h%) 

62032 _invertrect (ptr£) 
62 033 END PROC invrect 

62040 CORECT: DEF PROC rect (y%, x%, v%, h%) 

62041 SET (rect ! (0) , 2)-y% 
62 042 SET ( rect ! [2 ) , 2 ) =x% 

62043 SET (rect ! (4) ,2)-v% 

62044 SET £ rect ! ( 6 ) , 2 ) =h% 

62 45 pt ra— VARPTR ( rect ! ( ) } 

62 46 END PROC rect 

620 50 FRAMERECT : DEF PROC f ramrect (c%, y%, x%, v%, h%) 

62051 PROC rect (y%,x%, v%,h%) 

62052 _setsolidpenpat (c%) 

62053 _f ramerect (ptra) 

62054 END PROC f ramrect 

620 60 PINTOVAL: DEF PROC pintoval (c%, y%, x%, v%, h%) 

62061 PROC rect (y%,x%, v%,h%) 

62062 _set3olidpenpat (c%) 

62063 _j>aintoval (ptra) 

62064 END PROC pintoval 

62070 FRAMOVAL: DEF PROC f ramoval <c%, y%, x%, v%, h%) 

62071 proc rect <y%, x%, v%, h%) 

62072 _setsolidpenpat (c%) 
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62073 
62074 

62060 PI NT ARC : 

62081 

62082 

62083 

62084 

62090 PINTRECT: 

62091 

62092 

62093 

62094 

62100 PINTRRECT 

62101 

62102 

62103 

62104 

62110 FRAMRRECT 

62111 

62112 

62113 

62114 

62120 FRAMARC : 

62121 

62122 

62123 

62124 



_f rameoval (ptra) 
END PROC f ramoval 

DEF PROC pintarc (c%, y%, x%, v%,h%, ad% , va%) 
PROC rect {y%, x%, v%, h%) 
_setsolidpenpat (c%} 
_paintarc (ptra, aci% , va% J 
END PROC pintarc 

DEF PROC pintrect (c%, y%, x%, v%, h%) 
PROC rect (y%, x%, v%,h%) 
_setsolidpenpat (c%) 
_paint rect (ptra) 
END PROC pint rect 
;DEF PROC pintrrect (c%, y% , x% , v%, h% , lo% , ho% ) 
PROC rect <y%,x%, v%,h%) 
_setsolidpenpat <c%) 
_paintrrect (ptra, lo%, ho%) 
END PROC pintrrect 

:DEF PROC f ramrrect (c%, y%, x%, v%, h%, lo%, ho%) 
PROC rect (y%,x%, v%,h%) 
_setsolidpenpat (c%) 
_f ramerrect {ptra, lo%, ho%) 
END PROC frarnrrect 

DEF PROC f ramarc (c%, y%, x%, v%, h%, ad%, va%) 
PROC rect (y%,x%, v%, h%> 
_setsolidpenpat (c%) 

f ramearc (ptra, ad%, va%) 
END PROC f ramarc 



10 

20 DEBUT: 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 

240 ERREUR 
250 

260 FIN: 




REM GSB . HELLO ameliore! 

ASSIGN " . PRINTER" , - 1 : REM Supprime . PRINTER 
ASSIGN " . PRINTER" , 1 : REM Installe . PRINTER sans AUTO-LF 
CLEAR 65535 : REM Reserve $FFFF de memoire 

prefix 6, Vgsb/tdf s" 

PRINT "Un instant SVF, je charge lea fichiers .tdf" 
LIBRARY "6/locator.tdf" 
LIBRARY APPEND " 6 /memory . tdf 
LIBRARY APPEND " 6/misctool . tdf n 
LIBRARY APPEND "6/quickdraw. tdf" 
LIBRARY APPEND "6 /desk. tdf " 
LIBRARY APPEND "6 /event .tdf" 
LIBRARY APPEND M 6 /scheduler . tdf w 
LIBRARY APPEND n 6/sound. tdf " 
LIBRARY APPEND "6/adb.tdf" 
LIBRARY APPEND n 6 /sane , tdf " 
LIBRARY APPEND " 6/intmath . tdf " 
LIBRARY APPEND n 6/texttool . tdf " 

ON ERR GOTO erreur : REM Branchement sur ERREUR s'il y 
OPEN " . PRINTER" , AS£1 :OUTPUT£l 

_setoutglobals (255, 0) :REM Fixe les masques AND et OR 
PRINT CHRS (27 ) "D"CHR$ < ) CHRS ( 1 ) : REM Zeros barres . 
CLOSE£l 

OFF ERRiREM Retablit le mode standard de traitement d'erreur 
_3etoutglobals (255, 12B) :REM Valeurs standards des masques. 
NEW 



Par suite d une mauvaise manipula- 
tion, le programme qui figurail dans 
Trempfin Micro n a 19 n'etait qu'une... 
ebauche compo riant quelques erreurs. 

Voici le Hello definitif (qui figurait sur 
la ctisquette d'accompagnement). 

Avec toutes les excuses d'Emile SCHWARZ. 



a liei 
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mage miter il 

Corrigez voire manuel de reference 



Vous avez surement lu I'annonce de la sortie du 
manuel de reference de I'lmage Writer II en 
Francois, paru chez Inter Editions. Je I'ai achete. 

f. Page 73 

Le texfe a simplement ete traduit, ainsi que 
I'erreur re levee dans I 'edition am erica ine, 

II n'est pas possible d'envoyer plusieurs 
backspaces' consecutifs sur I'lmage Writer 
II. A I'origine, on devait pouvoir en envoyer 
deux pour un bon positionnement des 
accents circonflexes sur le V et sur les autres 
lettres. Ce n est pas le cas : cette possibility 
a ete malencontreusement oubliee. 

2. Pages fff, U2, iS3 

Ainsi que sur la carte de reference : 

Alors qu'Apple avait ete informe de ce pro- 
bleme (par un coilaborateur de Trempiin 
Micro) et avait publie une fiche technique 
IMW 1 sur ce point (sous le nom : Custom Font 
Selection), aucune mention n'est faite du bug 
interdisant le retour au banc 1 des caracteres 
personnalises par ESC ' lorsque Ton a utilise le 
banc 2 par ESC *. 



Le remede corvsiste d envoyer les commandes suivantes : 



curoc teres 


cods decimal 


Code heu 


Signification 


ESCDCfrl-6 Espoce 


27 68 32 


IB 44 99 20 


Bit 8 ingnore 


ESC Z Ctrl a Espa« 


27 90 32 


IB 5A 00 29 


Bit 8 retonnu 



5. Carte tie reference 

Caracteres personnalises, il laut lire : 
ESC I 27 73 

etnon : 27 43 comme imprime 

4. carte de reference 

Divers, il faut lire : 

ESC D CtrloEspace 27 68 32 18 44 00 20 
/ PACEM / 



5. une mise en garde 

II faut lire : 

Esc I pour Insertion de CR avant LF et FF 

Esc I 1 pour Pas d'insertion de CR avant LF et FF 

soit escape pelit I zero — 27 108 48 
escape petit I un = 27 1 (38 49 

En erfet, lo police utilise* pour Timpression 
peut laisser un doute ; est-ce ESC V Q ou ESC 
I Q ? Si vous lisez les codes en decimal ou 
hexadecimal, aucun doute n'est permis, 
mais„. errare humanum est ! 

Les points 1 , 2 et 5 sont communs aux deux editions, Les 
points 3 et 4 n 'existent que dans I'edition fran^aise, 
Si vous ne possedez pas encore ce manuel, vous 
pouvez vous le procurer au rayon librairie de votre 
concessionnaire ou chez : 

Inter Editions, 87 Avenue du Maine, 75014 PARIS 
Tel : (16-1)43.27.74.50 



Pierre metivier 

nomme Responsable Communication Technique 

Pour assurer une meilleure information sur 
les problemes techniques concernant les logi- 
ciels BORLAND, Pierre METIVIER o ete nomme 
Responsable Communication Technique, a 
destination de la presse et des entreprises. 

Pierre METIVIER, 30 ans, est entre chez BOR- 
LAND INTERNATIONAL en decembre 1986 
pour y creer le Support Technique. C'est ega- 
lement lui qui a mis en place le service tele- 
matique "Forum des langages" accessible par 
le 36.14. 

Ingenieur Electronicien dipldme de I'ESME, 
Pierre MlhlVIER est titulaire d un DESS de ges- 
tion de I IAE et d'un Master of Computer 
Science de BGSU (Ohio). Ingenieur informati- 
cien chez Micro Application de 1982 6 1985, il 
a ensuite ete Responsable du Support Techni- 
que chez Apricot avant de rejoindre la societe 
BORLAND INTERNATIONAL. kmano munatiohai 
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rrois notches pour Pies 



Void trois patches pour le programme PICS, Pourquoi ces patches ? 
Examinons-les un par un. 



Comme nous avons vu dans le n°!8 de Trempiin 
Micro (Janvier), il n'est pas possible d'utiliser en 
mode graphique 5HGR les caracteres accentues 
lorsqu'ils sont phs directement depuis le clavier. 
Pour contourner cette impossibility, il faut recoder 
ces caracteres. Ce patch est la pour ca ! 

Syntaxe d'une ligne de data comprenant un (ou 
plusievrs) caracteres accentues : 

1000 DATA " * cLCestccl36cquelsujet?cN257V* Aa" 
1019 DATA "*cLCestccl36cccl36cquelsujet?cN257V*Aa" 

La ligne 1000 comprend un 'a' ; la ligne 1010 en 
comprend deux. On constate la presence d'un 'c/ 
apres I'asterisque en debut de data ; puis deux 'c/ 
suivis du code ASCII etendu du caractere desire 
(ici : '6') et enfin un 'c/ terminateur. D'autre part, en 
fin de ligne, j'ai ojoute un equivalent clavier soit : 
'* Aa' (Pomme-A ou Pomme-a) ; cet equivalent 
clavier doit commencer par un osterisque et etre 
suivi par deux caracteres : 

• soit deux caracteres identiques, 

• soit un caractere suivi d'un espace, 

• soit enfin une majuscule et une minuscule, 

2. PUT.PiCS.CSB 

En Basic Applesoft, nous avons STORE et RESTORE 

qui sauvent sur disquette les variables employees 



dans le programme et qui les chargent lorsqu'on se 
serf a nouveau de ce meme programme. 

En GSBasic, on peut considerer que PUT £n et 
GET £n sont dans ce cas. Nous avions vu (dans 
Trempiin Micro n°19) une premiere utilisation de 
PUT £n et GET £n. En fait, ces instructions permet- 
tent de charger dans un tableau d'octets (suffixe 
'!') ou de sauver a partir du meme type de tableau 
des donnees. Pre'sentement, il s'agit des datas de 
definition des fendtres, des menus et autres 
messages... 

On doit : soil saisir le programme a partir de la 
revue, soit EXECufer le fichier PUT.PICS.TXT 
figurant sur la disquette d'accompagnement, puis 
lancer le programme. 

s. cer.Pics.csB 

Une fois les operations 1 et 1 effectuees, il ne nous 
reste plus qu a mettre en place la recuperation des 
datas a partir de la disquette. 

Proc£dons de la meme facon que pour 
PUT.PICS.GSB, puis tapons : DEL 15800,24100 

pour enlever les routines de reconnaissance des 
datas et les datas eux-memes (dont nous n'avons 
plus besoin). 

Et maintenant d nos chronometres ! On ne peut 
que constater la lenteur d'execution de notre PICS 
I original par rapport a ce PICS turbo ! 



U - RiDirBL.PIC8.G8i9 

16800 DEFDOSET : DEF FN doset% (deata, vstrSJ 

16900 LOCAL a% , b%, c%, d% , e%, f %, h%, 1% , x% , a$ 

17000 GOBBLE: IF MID$ <vstr$, 1, 1) " THEN vstr$-MID$ (vatr$, 2) :GOTO gobble 
17100 x%=INSTR( w !%£a$ A *i n r MID$ (vatrS, 1, 1) > 

17105 a%»INSTR( w c",MID$ (vatr$, 2, 1) \ 

17110 ON a% AND x% GOTO french 
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/ Trois patches pour PICS / 



17200 
17300 
17400 
17500 

17600 DBL: 
17700 DOINT: 
17800 
17900 

18000 XSTR: 
18100 

18200 BSTR: 

18210 FRENCH: 

18215 

18220 

18225 

18230 

18235 

18240 TEST: 
18245 
18250 
18255 

18260 SUITE: 
18270 

18300 

18400 DONE: 

18500 

18600 

18700 

18800 

18900 

19000 DOZERO: 
19100 



IF x% THEN vstr$=MID$ (V3tr$,2) 

IF MIDS <vstr$, 1, l)-"0™ THEN vst r$=STR$ (TEN (vst r $) ) 

ON x% GOTO doint,doint,dbl,doint,bstr,xstr,xstr,doint 

SET (t ! (0) , 4)-CONV(v3tr$) :l%-4:GOTO done 

SET (t ! (0) , 8)=CONV£(vstr$} :1%-8:GOTO done 

IF MID$ [V3tr$, 1, 1)«*"0" THEN vstr$=STR$ (TEN (vstr$) ) 

t&=CONV& (vstr$) : l%=x% ; IF t&=0 THEN GOTO dozero 

ELSE SET (t ! ( ) , x% ) =t& : GOTO done 

IF x%-6 THEN vstr$-CHR${LEN(v3tr$n +vstr$ 

ELSE vstr$=vstrS+CHR$ (0) 
l%-LEN(vstr$) :SET(t ! <Q) >=*VARPTR$ (vstr$) , 1% : GOTO done 
v3tr$=MID$<v3tr$ r 3»+CHR$ <0> \ 
c%«INSTR(vstr$, n CQ"r 1) 
SET ( t ! (0) >=MID$<vstr$,l,C%-l) 
d%=INSTR(vStr$ r ,r C M ,C%+2) 
b%=VAL(MID$<vstr$,e%+2, (d%-c%-2) ) ) 
SET (t ! (C%-1) ) =b% 

e%=INSTR<vstr$,"cg w ,d%+l> :f%=f%+l 
IF e% THEN h%=d%:GOTO suite 

ELSE SET (t ! (c%) ) =MID$ (vstr$, d%+l) 
1%=LEN (vstrS) - (LEN (STR$ (b%) )+2) *f%:GOTO done 
d%-INSTR(vstr$ # M c" # e%+3> 

IF e%Xh%+l) THEN a$=MID$ (vstrS r h%+l l e%-(h%+in :SET(t ! (c%) )=A$ : 
C%=c%+LEN (A$) 

SET ( t ! (c%))=VAL(MID$(vstr$,e%+2,d%-(e%+2) ) ) : c%-c%+l :GOTO test 
topa=desta+l%-l :x%=0 
FOR pka=desta TO topa 

z%-t ! (x%) 

POKE pka, z% 

3C%«X% + 1 

NEXT 

FN doset%=l% 
END FN doset% 



14910 TEXT : HOME : PRINT "Un instant, je sauve le contenu des tableaux" 

14920 OPEN "PICS. 256. F2", FILTYP=242 AS£l r 256 

14930 PUT£1,256, 0;menul ! (0) 

14940 PUT£l,256, l;menu2I (0) 

14950 PUT£l,256,2;menu3! (0) 

14960 PUT£1, 256, 3;message ! <Q) 

14970 PUT£1, 256, 4;msgl! <0> 

14980 PTJT£1,256, 5;dtitle! (0) 

14990 PUT£l, 256, 6;wltitle! <0) f 
15000 PUT£l,256,7,-w2title! (0) 
15010 PUT£1,256, 8;w3title! (0) 
15020 PUT£1,256, 9;w4title! <0) 
15030 CLOSE£l 

15050 OPEN "PICS. 78 .F3" r FILTYP=243 AS£1,78 

15060 PUT£l r 78, 0;dpb! (0) 

15070 PUT£1,7B, l;vlpb! (0) 

15080 PUT£l,78 r 2;w2pb! (0) 

15090 PUT£l r 78, 3;w3pb! (0) 

15100 PUT£l, 78, 4;w4pb! (0) 
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15110 PUT£1, 78, 5;slinf o! (Q> 
15120 PUT£1, 78, 6rSrcRect ! (0) 
15130 CLOSE11 
15140 END 



2000 
2100 
2200 
2300 
2400 
2500 
2600 
2700 
2800 
2900 
3000 
3100 
3200 
3250 
3300 
3310 
3400 
3500 
3600 
3650 
3700 
3710 
3800 



libfind H windStartUp" r ql%,q2%,q3% 
IF ql%=0 THEN LIBRARY " 6 /quickdraw . tdf " 
PROC please. wait 

OPEN "PICS .256, F2", FILTYP=242 FOR INPUT AS£1,256 

GETtl , 256,0 ;menul ! (0) 

GET£1, 256, l;menu2 ! (0) 

GET£l,2 56,2;menu3 ! {0) 

GET£ 1,256,3; message ! (0) 

GET£l,256 f 4;msgl ! {0) 

GET£l,256,5;dtitle! (0) 

GET£1,256, 6;wltitle! (0) 

GET£l,25 6,7;w2titlet (0) 

GET£l,256 f 8;w3title! (0) 

GET£1,256, 9;w4title! (0) 

CLOSE£l 

PROC msg ("' Nother Moment Please ...") 

OPEN "PICS .78 .F3", FILTYP=243 FOR INPUT AS£l,78 

GET£l,78,0;dpb! (0) :GET£1,78, l;wlpb! (0) 

GET£1, 78, 2;w2pb! (0) :GET£1, 78 , 3;w3pb! (0) 

GET£1,78, 4;w4pb! (0) : GET£1, 78,5; slinf o ! (0) 

GET£1, 78, 6;SrcRect ! (0) 

CLOSE£l 

PROC msg( n, Nother 'Nother Moment Please ...") 





Deux ouvrages sur 
LOTUS 1.2.3 



SYBEX, 6-8 Impasse du Cutt, 75018 PARIS. 
W. : (16- i) 42.03.95.95. 




• LOTUS 1.2.3 PAR LA PRATIQUE (par Carolyn Jorgensen) 

Riche en exemples concrets, re livre s"adresse h tous les utilisateurs de Lotus 
1 ,2.3, Les neophytes y trauveront des guides simples avont chaque theme 
important; quant aux utilisateurs chevronnes, its se lance ront di recrement 
dans le cceur d'explications plus avaneees. L'ouvrage fournit aux debutants 
des modeles structures resolvant des problemes financiers el statistiques. 
Ces modeles peuvent aussi etre etendus adautres applications. Aux utilisa- 
teurs oyant une demande precise, il offre une structure bien indexee. 

Un livre brochi de iorma! 190X230. de 588 pages — 298 F. ch+* SYBtX 

• NOUVELLE ENCYCLOPEDIE LOTUS 1.2,3. (par Greg Harvey) 

Voici une reference complete, couvrant tous les aspects de ('utilisation de Lotus 1.2.3, 
version 2, L'ouleur s'esl attache a le presenter comrne la source d'information devant 
venir en aide 6 I'utilisaleur cheque bisque ceiui-ci rencontre un probleme. 
Le livre se divise en huit parties : 

— Description generale de Lotus 1 .2.3 et 
des differences essential les existent 
entre les versions I A et 2. 
Description exhaustive des common 
des se fapportant b la feuille de tra- 
vail. Iraitement des champs de cellu- 
les et les operations sur f ichiers, 

- Usage des formules et des fonctions a 
dans les feuilles de travail, chapitre 

Un livre broche au format 1 90 X 230, de ! 260 pages — 348 F 



sur les modeles, la recherche d'er- 
reurs et les methodes de recalcul. 
Gestiondesdonnees. 
Aspects de la creation et de ( utilisa- 
tion des graphiques. 
Fonctions d'impression. 
Creation et utilisation des macros 
avec, en particulier, I utilisation du 
langage de commandes macro. 
• Utilisation avec d'autres programmes 
d applications, transferts de donnees. 
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DUNOD. 17 rug Rmy-Dumoncel, B P 50. 75661 PARIS 
Cede* 14 - T4t. : (16-1) 43.X. 15.50. 

18X21. 1987. 320 pages, broths'. 220 F TIC 




La micro- 
edition 

selon Seybold 



V 




MNO 



• LA MICRO-EDITION SELON SEYBOLD 
par John Seybold et Fritz Dressier 

Micro edition ou "Desktop Publishing", edition electronique, publication assis- 
ts par ordinateur (PAO), edition personnetle, informatique editoriale, autant 
de mots pour traduire un phenom&ne qui bouleverse le rnonde de la communis 
cation ecrite en multipliant les acces directs a l edition. 

Consideree aujourd'hui par les specialistes comme I un des plus importants 
vecteurs de deVeloppement de la micro-informotique dans la societe, la 
micro-edition est nee il y a quelques annees de la disponibilite simultanee de 
micro-ordinoteurs grophiques, de logiciels de traitement de texte et de mise 
en page et d imprimantes laser de qualite. 

Face a ces innovations techniques, I'ouvrage de John Seybold et Fritz Dressier 
est une reference tant pour les professionnels de rimprimerie, des orts graphi 
ques, de ['edition . . , que pour tous ceux qui ont 6 produire des documents 
imprimes, en particulier dons les enterprises. 

Du dessin des caracteres d I'image numerique. de la saisie du texte a la mise en 
page, de la composition a {'impression loser, les auteurs montrenl comment, en 
respectant les regies trad it ion nel les de la typographie, on peut atteindre une qua- 
lite professionnelle sur les materiels de la micro-edition. 



ASSEMBLEUR 

LE CALCUL NUW 



Livre brocM, format 19X23, 384 pages — 298 F 

SYBEX, 6-8 Impasse du Cure. 75018 PARIS 
Jit. : (I 6- If 42.03.95,95. 



• TECHNIQUES DE PROGRAMMATION EN ASSEMBLEUR : 
LE CALCUL NUMERIQUE par Laurent Padjasek 

Cet ouvroge presente les bases de calcul informatique- II propose I'ensemble 
des algorithmes permettant d'evaluer et de compiler les expressions mathe- 
matiques, de la plus simple a la plus complexe. 

Le livre s adresse a la fois aux concepteurs et oux utilisateurs de logiciels et 
bien sur 6 tous ceux qui souhaitent construire leur propre calculateur. 
Cinq themes y sont traites : la representation binaire des nombres entiers sui- 
vie de ( expose des algorithmes permettant de simuier les operations mathe- 
matiques ; la representation binaire des nombres entiers signes suivie de 
! expose des algorithmes permettant de simuier les operations rnothemati- 
ques ; la representation binaire des nombres reels et I'expose des algo- 
rithmes permettant de simuier les operations mothematiques ainsi que les 
fonctions telles que, cos, sin, tan, In, etc. ; ('evaluation d une expression 
mathematique ; la compilation d r une expression mathematique. 
Chacune des parties theoriques exposee est suivie d une application concrete 
dont les routines sont utilisees pour la conception de quatre logiciels : un veri- 
ficateur syntaxique, deux evaluateurs d'expressions et un traceur de fonc- 
tions. Toute la programmation a ete realisee sur IBM PC b I'aide du logicief 
MA5M de Microsoft. 



SPRINT VERSION 1.01 Mise a jour technique 

La version 1.01 de SPRINT est une mise 6 jour technique 
caracterisee par des fonclionnaliles supple 1 meni aires et des 
ameliorations ergonomiques. 

LES FQNCTIONN ALlTfcS Parmi les fonctionnalites sypple- 
menfaires, SPRINT 1,01 inlegre ; l inlerfoce utilisafeur Word 
Perfect ; le support de la souris (Microsoft PC Mouse, Logi 
Mouse et compatibles) ; le support des claviers PS/2. 

SPRINT possede egalemenl des oufils de conversions permet- 
tont de transferer : les fichiers soisis sous Word 3J vers SPRINT 
ou inversement ; les fichiers WordPerfect 4.2, Textor 3-0, 
Wordstar 3.4 et Wordstar 3000 vers SPRINT. 

— / PACSM+ / — 



LES AMELIORATIONS Parmi les ameliorations ergonomi- 
ques, SPRINT est encore plus simple 6 installer (utilitoires 
batch) et possede de nouvelles commandes de : creation de 
Dictionnaire, creation de Giossaire, visualisation des textes 
sous Info merge, 

SPRINT possede de nouveaux fichiers d exemples pour les 
manipulations de tableaux et d'lnfomerge. Les perfectionne- 
ments interviennent oussi au niveau de I'editeur. du formateur 
et de I'lnfomerge de SPRINT. La version 1 .01 associe a la docu- 
mentation de SPRINT un addenda de vingt pages, qui complete 
les manuels actuels et explique les nouvelles fonclionnalites. 
Un kit de mise a jour SPRINT est envoye gratuitement a tous les 
utilisateurs ayont relourne leur licence. 
BOM AND INTERNA TIOHAL 
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Commands permetfant de charger 
une fonte dans votre imprimanfe. 

Yvan KCENIG vous explique d'abord comment utiliser le module RELOPRO. Ne 
negligez surf out pas la lecture de lo premiere partie de son article. 



FONTES 



RELOPRO encore une Ms 

II semble, a en croire les reactions de nombreux 
lecteurs de Tremplin Micro, que le module relo- 
geur qui accompagnait plusieurs de mes program- 
mes pose parfois probleme. 

ll faisoit so premiere apparition dons une version 
prelimi noire, avec PRO.TYPC dons TM n°9, I! 
revenait en complement de la routine de recopie 
d'ecran DHGR de P. Quettier dans TM n°10\ avec 
SLOADC dans TM, n°11. Ensuite, dans TM n°I4, 
ii accompagnait SONSIR (le source figurait dans la 
revue), Enf in, il etait egalement a I'oeuvre dans les 
commandes de la disquette THGS, 

Comme, entre temps, je I'avais envoye a de nom- 
breux lecteurs pour mettre en place des comman- 
des externes ProDOS ecrites sur mesure, et ce r 
sons aucun probleme, il ne me sembtait pos utile 
de m'apesantir sur un module donnant apparem- 
ment satisfaction. 

Je me trompais. Revenons done au RELOPRO... 

Toutes les versions officiellement commerciaiisees 
de BASIC. SYSTEM contiennent un point dentree 
appele GETBUFR, implante en $BEF5 (il avait ete 
om'ts dans le ProDOS Technical Manual, mais exis- 
tait dans le programme). Si (A) est le contenu de 
raccumulateur, to routine dans laquelle on entre 
en GETBUFR descend proprement de (A) pages, les 
tampons (buffers) du BASIC. SYSTEM en compagnie 
des variables chaines implantees juste au-dessous 
de ceux-ci. Cela permet, entre autres choses, de 
creer une zone-memotre dans laquelle on peut ins- 
taller, en toute surety (ou presque) une routine ou 
un groupe de donnees. 

Certains auteurs en sont restes aux habitudes heri- 
t6es du DOS 3.3 et se bornent a manipuler HIMEM. 
C'est une formule cavaliere, mais qui peut fonc- 
tionner si on ('utilise correctement. Pour ce faire, il 
convient de fixer HIMEM sur une limite de page- 
memo ire et de se souvenir que BASIC. SYSTEM utiii- 



sera au premier acces disque, un tampon de 4 
pages qu'il croira, en toute candeur, implante* juste 
au-dessus de HfMEM. En outre, a chaque ouverture 
de fichier, il baladera joyeusement ce qui se trou- 
vero en-dessous de HIMEM, Par contre, si on des- 
cend HIMEM de 4 pages, par exemple, on peut etre 
certain d'etre tranquille en s installant dans les 4 
pages qui vont de $9600 a $99FF puisque le tampon 
a tout faire sera desormais de $9200 a $95FF. 

relopro est un outii destine a pemettre 
d utiliser correctement CETBUFR. 

Si vous disposez de Tassembleur MERLIN, prevoyez 
d'ecrire vos programmes en 3 parties : un en-tete 
que j appelle generalement K. Routine. 5, le source 
de la routine proprement dite que j'appelle Rou- 
tine.S et le fichier source RELOPRO.S que Ton ecrit 
une fois pour toutes. 

L en-tete se borne a appeler les deux autres modu- 
les et a en organiser I'assemblage en fonction de 5 
variables utilisees par RELOPRO : 

• HASADRS signale la presence eventuelle d'une 
table d'adresses dans le module actif ; 

• HASDATAS signale la presence eventuelle 
d'une zone de simples donnees ; 

EXTERNE indique si Ton est en presence d'une 
cornmande externe ProDOS ou d'un module 
d'un autre type ; 

• PROTEGE precise si Ton doit ajuster la BITMAP, 
ceci afin d'indiquer au BASIC. SYSTEM qu'il lui 
est interdit de charger quoi que ce soit dans la 
zone liberee. 

• INI ROUT permet de demander que I on saute 
au point bas de la zone liberee pour initialiser 
une routine Ampersand par exemple. 

Pour que tout cela fonctionne, il suffit de respecter 
quelques regies simples : (suite page 46). 

— / PACE 45 / — 
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La partie programme doit commencer par les 
instructions t 



DOSENTRY 
NEXTCMO 
DOSEXIT 
AMPEXIT 



jmp PARSE 



l*»P 
jmp 



XRETURN 
IORTS 



($BE9E) 
($FF58) 



PARSE analyse de la commande 

elle doit se terminer par le label ENDPROG suivi 
par les eventueffes adresses ; ensuite r label 
imperatif ENDADRS suivi par d even fuels 'datas' 
avec en cloture : 

LAST = * - 1 
ENDALL = * 



Si ces regies sont respectees, RELOPRO se 
chargera d'aboisser les tampons du 
BASIC. SYSTEM et d'instoller votre module actH 
dans la zone liberee en en modifiant les adres- 
ses internes en fonction de la position reelle de 
cette zone. 

Les appels ou MLI seront reloges correctement. 
Attention ! si une instruction manipule le seul 
octet haut d'une adresse interne au module 
actif, il faudra prendre des precautions : soit 
recuperer cet octet haut a partir d une adresse 
stockee dans la zone d'adresses, soit utiliser 
I'octet haut d'une adresse dans une instruction 
si I'on est sGr que le r§sultat sera fiable. Je 
choisis, en regie generate, cette derniere for- 
mula (cf . le label H I BIT dans FLOAD). 

On peut meme (que ceux qui ne veulent pas 
entendre parler du GS passent au paragraphe 
suivant ! }, si I'on fait tres attention, ecrire des 
routines contenant du code 65C816 bien que le 
module relogeur' de RELOPRO ne connaisse 
que les opcodes 65C02 (ceux qui ont achete 
THGS ont pu s'en rendre compfe), 

Je tiens d preciser que les premieres instruc- 
tions du module actif sont indispensables afin 
que les routines puissent etre aisement inte- 
grees, comme je le signale systematiquement, 
a I'utHitaire ProCMD de Glen BR EDO N. 



La commande flo ad 

Cette fois, je vous oi resservi RELOPRO pour ins- 
taller une commande qui devrait rejouir nombre 



de lecteurs qui m'ont interroge sur ce theme : 
FLOAD permet de charger une fonte dans votre 
imprimante. 

Le programme est presente dans une version 
correspondant a I'equipement standard : une 
unite centrale accompagnee d un dispositif de 
liaison serie carte SSC si lie, port serie si tic 
ou IfCS. II est cependant prevu des condition- 
nels permettant de traiter, apres reassem- 
blage, d'outres configurations ; bonne vieille 
DMP d liaison porallele ou machines de la 
galaxie EPSON, en presicant cependant que 
certaines d'entre elles, comme ta LX800, ne 
permettent pas de charger une fonte, mais 
seulement quelques caracteres. 

L'en-tete K.FLOAD.S contient en prime un rappel 
de la structure des fichiers fontes utilisables. En 
ce qui concerne les imprimantes APPLE, les fon- 
tes generees par CARAC.1 ,0 de T.M. n°6 (repris 
en catimini dans lo disquette UTIL A 019 de VIF) 
feront I'offaire. Ceux qui se seront procures mes 
extensions AppleWriter (Graphiques et Fontes) 
en auront quelques autres. La disquette de T.M. 
n°20 en presente plusieurs, pour IMAGEWRITER 
et EPSON. 

Dans mes fontes, je ne d^finis pas de caracteres 
$7F pour eviter quelques desagrements. En 
effet, ce caractere est accepte par TIMW2 
(lorsqu'elle n'est pas en panne) mais ne Test pas 
sur l increvable IMW1. Je m'abstiens egalement 
d'utiliser le second banc de caracteres personna- 
lises, celui que I'on appelle par ESC "+ , a cause 
d un bug de TIMW2 (dont je vous ai entretenu par 
ailleurs — le manuel franqiais n'en parle tou jours 
pas). Je me suis arrachd suffisamment de che- 
veux, lors de la mise au point de la routine Hard- 
Copie du Bureau de MINIE (je precise pour eviter 
toute interpretation malvetllante que je devais 
bien cela d Claude AUBRY qui est a l origine de 
RELOPRO). 

Comme toujours avec mes commandes externes, 
je conseille de les mettre en place a partir d une 
configuration propre a la suite d un boot ou d un 
oppel a PRO.FP. Le programme utiltsoteur consi- 
derera que la commande a ete mise a sa 
disposition. 

Allez, je vous laisse, le telephone sonne. 
J'espere que ce n'est pas pour un probleme de 
fontes... y, k. 
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= 0900 



= 8609 



=9808 



2 
3 

4 

5 

7 



18 

11 

12 

13 

14 

15 

16 

17 

18 

1? 

28 

21 

22 

23 

24 

25 

26 

27 

28 

29 

38 

31 

32 

33 

34 

35 

36 

37 

38 

3? 



42 

43 

44 

45 

46 

47 

48 

4? 

58 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 



utilise RELOPRO.S et FLOAD. S 
FLOAD fonts <,A slot imp, S £, D £> 
par d£-faut 



1 
# 

* K. FLOAD. S 
# 

* 
+ 

* Slot 1 
* 

* Yvan KOENIG YALLAURIS le 23/01/88 * 

* Cette commands est congue pour integration £ventuelle * 

* 4 ProCMD de Glen BREDON. (Editeur Call A.P.P.L.E.) * 



HASADRS = 
HASDATAS = 
EXT ERNE = 
PROTEGE = 
INI ROUT = 



9 ;1 ■ table adresses, sinon # 

1 ft ■ table DATAs. 9 sinon + 

1 ;1 = commande externe, 8 sinon * 

\ 1 — on protege la routine * 

B ; 1 ■ on saute dans la routine * 

DISK KBD "DISK < l=obj/d i sque 8=Non ) ■ 



Structure Fonte APPLE 



DFB 
DF8 
t DFB 



DFB 



* 
* 
* 
* 
* 

+ 

* 
♦ 

* 
-* 

+ 
* 
+ 

* 

# 

«*****«««*«»»«***«******* ******* 

* Structure Fonte EPSON 

* DFB $1B,'&" ( 

* DFB ler code ASCII 

* DFB dern ler code ASCI I 
* 

* , 

+ 

+ 

+ 

* 



si aucun carac n " a plus de 8 cols 
si au moins 1 carac > Bcols 
rnai s 1 imSup=16 



d£but de chargement 



pour 


chaque caractere 


DFB 


'char ' 


DFB 


64+NbcoI+(32) 


DFB 


1 

Pi 


DFB 


p2 


DFB 


pNbcol 



<32) si on emploie 
8 a i gu i 1 1 es basses 



] es 



DFB 4 



marque -fin de -fonte 



pour chaque caractere 



DFB 
DFB 
DFB 



attr ibut 

pi 

P2 



Veuillez consul ter votre mantrel 



DFB pit 

**********#********************* 
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61 

63 
>1 
>2 
>3 
>4 
>5 
>6 
>7 
>8 
>9 

>ie 
>n 
>12 
>13 
>14 
>15 
>16 

y\7 

>18 
>19 
>2B 
>21 
>22 
>23 
>24 
>25 
>26 
>27 
>28 
>29 
>38 
>31 
>32 
>33 



TR 

PUT 



ADR 

RELOPRO 



* Module Relogeur destine a placer une routine * 



entre ProDOS et ses buffers. 

La routine pent etre une commande externe, 
une simple routine (CALL) ou une routine AMPER 



Prendre garde 
d'adresses et 

Yuan KOENIG 



a la position d'une table 
(ou> d'une table de donnees 

le 25-84-S 



* 

M 

* 

* 
* 



* 

* 
* 



= 1 
= 1 



= e 



5 I 
S I 
I i 
S 5 

s i 



table adresses, 8 sinon 
tabl e -DATAs, sinon 
commands externe, 8 sinon 
on protege la routine 
on saute dans la routine 



*HASADRS 
*HASDATAS 
*EXTERNE 
•PROTEGE 
* IN I ROUT 
* 

* On demande a GETBUFR de nous allouer f*$ pages 

* puis le relogeur copie la routine 

* dans la zone qui nous est attribute. 

* Le relogeur utilise sa propre routine pour 

* identifier les instructions afin de traiter 

* correctemen t les ope>ateurs sp^cifiques 65c82 

* On traitera correctemen t les appels au ML! 

* Attention cependant, les tables HLI devront 

* etre placets en zone DATAs et 

* initial isees par le programme 
*###**#####***#*#***#***»#*»**##***###* ##*#***##** 



=eee2 


>34 


R OFFSET = 


2 


;*3 


=8684 


>35 


R_ZBEG 


4 




-eee6 


>36 


R_ZEND 


6 




=883C 


>37 


R Al 


*3C 


; Debut du bloc a de' placer 


=&83E 


>38 


R_A2 


*3E 


;Fin du bloc pour MOVE 


=8042 


>39 


R_A4 


*42 


;Debut zone dest ♦ pour MOVE 


=98FD 


>48 
>41 


R_INDIR = 


SFD 






>42 


* Adresses 


ProDOS 






>43 








=BEee 


>44 


CI_ENTRY = 


$BE@e 




=BE06 


>45 


EXTRNCMD = 


CI_ENTRY+6 




=BEF5 


>A6 


GETBUFR = 


♦BEF5 




=BFee 


>47 


ML1 


♦BF08 




=BF53 


>48 

>49 


BITMAP 


*BF58 






>58 


* Adresses 


MONITEUR 






>51 








=FCB4 


>52 


9, NXTA4 = 


*FCB4 


;Avance R_A4 puis tombe en NXTA1 


-FDED 


>53 


R COUT 


*FDED 


jAffiche le caractere (A> 


=FE2C 


>54 


R MOVE 


*FE2C 


;Dep1ace (R_A1 L/H — R_A2 L/H) 
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>55 
>56 
>57 
>5B 
>59 



vers R A4 L/H 



* — 



ORG $6080 
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>6@ 


















>61 


































; 62 








6886 : 


A9 


02 






>63 




LDA 


tLAST-PROGRAM/>l 00+ 1 


6082: 


28 


F5 


BE 




>64 

>65 




JSR 


GETBUFR ;Libere (A)pages et revient avec 
jpartie haute adresse dans <A> 


6885; 


98 


65 


=68EC 


>66 




BCC 


PAGE FN D 


6087 : 


Ad 


16 






>67 




LDY 


£CANTEND-CANTREL0-1 


6 Boy i 


ar 


95 


60 




>6o 


: 1 oop 


LDA 


CANTRELO ,Y 


j oof , 


HI 
CO 




FD 








JSR 


R_COUT 


fiflor : 


tia 








/ / 




DEY 






18 


F7 


=68 


89 


>71 




BPL 


: 1 oop 


6092 : 


4C 





BE 




>72 
>73 




JMP 


CI_ENTRY 












>74 




6095: 


80 


87 






>75 


CANTRELO 


HEX 


80,87 


6097: 


C5 


C3 


CI 


CC 


>76 




REV 


ML N'Y A PAS DE PLACE" 


669B: 


08 


A8 


C5 


C4 


A0 03 


CI D0 A0 


CI A0 


09 A7 CE A0 CC 


60AB: 


C9 








>77 


CANT END 
















>78 


«*♦**»*#***#* **#****#*#**** a***************************** 












>79 








68AC: 


04 


15 


04 


2A 


>88 


OPTABLE 


OFB 


780880100,7.80010101 ,7.00000100 ,7.80101010 


68B0 : 


05 


14 


08 


2A 


>81 




OFB 


7.90808101 ,7,0801 8108, 76000 1800, 7.00181 810 


6884? 


16 


15 


84 


2A 


>82 




DFB 


7.008 I 81 1 8 ,7.8 80 1 81 8 1 ,700088 1 00 ,7.00 1 1 81 


6068: 


15 


1 5 


88 


2A 


>83 




OFB 


700010181 ,700018101 ,70000 1080, 7,001 01 010 


608C: 


84 


15 


84 


2A 


>84 




DFB 


700000100 ,700810181 ,7.00000100 ,7.00101018 


68C0 : 


15 


14 


08 


28 


>85 




OFB 


708 1 1 8 1 , 70 80 1 8 1 00 ,700 00 1 000 , 7.00 1 1 8 


60C4 : 


A A 

84 


1 5 


84 


2A 


>86 




DFB 


7.00080100 ,700010181 ,700000108,700181810 


60C8 : 


1 5 


1 5 


88 


2A 


>87 




DFB 


708810101 ,780010101 ,700081088 ,780181010 


60CC : 


15 


15 


80 


2A 


>88 




DFB 


700010101 ,7.00010101 ,780800000, 708181 010 


6008 : 


1 c 

ID 


1 j 


88 


2A 


\ oo 

/OT 




DFB 


700810161 ,700010181 ,700001880 ,780181818 




1 


1 D 


04 


2A 


\ Oft 
/TO 




DFB 


780810181 ,700018101 ,780080108,700101810 


1 nnn . 


00 


1 D 


08 


2A 


SOI 




DFB 


700080101 ,700010101 ,7.00001000,700101010 


ooUL . 


J 


1 s 


04 


2A 


AOT 




OFB 


780080101 ,7.00010101 ,760000168 ,7.08161810 


6OE0: 


15 


14 


88 


28 


>93 




DFB 


700018101 ,7.0 00 1 1 00 ,70060 1 000 ,78010 1 000 


i a c a i 




1 j 


04 


2A 


/ TH 




OFB 


700600101 ,700010101 ,708008108 ,700101810 


r Q rn , 


1 3 


1 *t 


08 


2B 


/ 7J 

\o/ 
/TO 




DFB 


700010101 ,708010108,788081000 ,7.08101600 












/TV 














>98 








68EC : 


85 


43 






>99 


PAGEFND 


STA 


R_A4+1 jpartie haute adr . zone alloutfe 












>100 

>1I1 


































> 182 




DO 


EXTERNE 


68EE : 


AE 


88 


BE 




) 1 83 




LDX 


EXTRNCMD+2 jsauue I'ancienne adresse pour 


68 Fi t 


BE 


05 


t n 
Oi 




> 1 04 




STX 


NEXTCMD+2 jchainer les commandes 


68F4 : 


80 


08 


BE 




■ i e 5 




STA 


EXTRNCMD+2 ;met en place 


68F7 : 


AE 


A T 

87 


BE 




> 1 06 




LDX 


EXTRNCMD+1 ;la nouvelle adresse 


68 FA : 


8E 


04 


62 




> 1 8 7 

> 108 

V 4 A ft 

) 189 


# 

♦NEXTCMD 


STX 
JMP 


NEXTCMD* 1 

$0800 ;0n doit trouver ce label 












> 1 1 e 


ff 


et cette instruction dans toute 












>n i 


* 


commande externe pour assurer 












> 1 1 2 


# 


le chainage des diverses commandes 












>113 


* cf . 


PRO.TYPC dans Tremplin MICRO 












> 1 1 4 


* 
















> 1 1 5 




ELSE 














>116 


















>i 17 




STA 


R_1NDIR+1 jOctet haut adresse routine 
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> 1 1 R 

' 1 1 o 




I DA 


f 


; r p 1 OQ^ 1 fi 1 










> 1 1 9 




STA 


R 1NDIR 


j octfft dito 










> 1 20 




OS 


97* EA 


;pour -fixer la suite 










> 1 71 

r I C 1 






















r I th 














M23 


































.' i £s 










OUT W ■ 


A9 


a 9 






"> t ?s 




1 DA 


f < PROGRAM 


;D^but de zone S deplacer 


AO CP ■ 


■=; 


J L 




/ I to 






R Al 




612 \ : 


85 


84 




) 127 




STA 


R 7RFR 




<S1B3: 


A9 


62 




>128 




LDA 


£ >PR0GRAM 




6185: 


85 


3D 




> 1 29 




STA 


R__A 1 + 1 




6187: 


85 


05 




> 1 39 

> 1 31 




STA 


R_ZBEG+1 




6189 : 


A9 


8B 




>1 32 




LDA 


£<ENDPRGG-1 


jFin de la partie programiTte 


610B: 


85 


3E 




)133 




STA 


R_A2 




xi an > 


AO 
H T 


AT 








1 HA 


f >FNDPR(1fi- 1 




610F: 


85 


3F 




>135 

> 1 TA 




STA 


R_A2+ 1 




Al 11 * 


A9 






> 1 "37 




l DA 


f <FNDAI 1 -1 




6113: 


85 


06 




>1 38 




STA 


R_ZEND 




o 1 1 3 : 


AO 


A^ 
Oo 




/ 1 jy 




LUH 


£ \ CMrSAI 1 — 1 

t y cHURL L I 




61 1 f : 


OR 
OJ 






» i ,1 a 
f 1 40 

/ 1 *T 1 




o 1 A 






611?: 


D8 






>142 
>143 




CLD 




;Au cas oil 


Alii' 

Ol in ■ 


AO 


y v 




S ♦ 44 




l_l>H 


j! 4 

to 


jKiace rKUuKHh sur oebut ae page 


611C: 


85 


42 




>145 
> 1 46 




STA 


R_A4 










> 1 47 

f Iff 


































> 148 




DO 


FXTFRtJF 




61 IE: 


3D 


07 


BE 


>149 
>1 50 
> 1 53 




STA 

ELSE 

DS 


EXTRNCMD+ 1 
3,tEA 












> 1 52 
>153 




FIN 






























> 154 










Al 21 s 

O J £* J 4 


JO 






> 1 SS 

■ 1 <J -J 




SEC 






61 22 ; 


i— j 


R4 




> 1 ^A 






R 7RFR 


:Ca1cule o-f'fset 


4 1 74 ■ 


D w 


A ? 

£ 




> 1 S7 




^TA 
O i ri 


n rsc 1 


* nuo T ' n n a i nn tur a 
t ^ U tr 1 vn aj uu vci a 


Ol • 




4T 








1 DA 


R A4+ t 


1 an y arlrpt;c:fie 
1 fly a alii rs^c D 




E5 


5 




> 1 S9 




SBC 


R ZBEG+1 




Al 7A i 


RS 


A ^ 

J 




> 1 Aft 
/ 1 oo 

s 1 A 1 




STA 

O 1 M 


R DFF^FT+1 




ai ?r i 


Aft 

no 


a a 
o 




> 1 A"? 
/ 1 Oi- 


iTt 1 ULl 


1 DY 

L.IV 1 


f A 




Al ?F • 


fi ! 
O I 


•J u 




1 1 AT 






Al) V 


* flnrndp 

■ j p u u c 


A1 TA ' 








^ 1 Ad 








•aef-f » JSR ? 


6132: 


D8 


17 


=61 4B 


>165 




BNE 


:notMLI 




6134: 


C8 










I NY 






A 1 TS • 


Pi 


ir 

JU 




> 1 47 




1 DA 


C R A 1 ) Y 


■ 1 nh y t p 

3 l U O / L ?r 


X 1 "57 • 






— X 1 JP 
-Ol HD 


"i 1 Aft 

/loo 




DUE 


■ n n + MI T 

• nun 1 l 1 


■ro n - a c t nae i M 1 T 

1 L C II t 3- t ft -fit » M rLi 


a 1 J; ! 












iii i 






X 1 TA * 


O f 

a 1 












( D Al 1 V 




613C: 


C9 


BF 




> 171 




CMP 


6>MU 




613E: 


D0 


0B 


= 614B 


>172 
)173 




BNE 


:notMLI 




6140: 


A9 


88 




>174 




LDY 


£0 




6142: 


A2 


02 




)175 




LDX 


£3-1 


; Pour 


6144: 


28 


C3 


61 


> 1 76 




JSR 


COP IE 


} copier JSR MLI 


6147: 


A9 


02 




> 1 77 




LDA 


£3-1 


;Trompe la suite pour 



/ PACE SO / 



/ Wan KOCNIC — PONTES / 



61 49 : 

O mm* I 


DA 


1 6 


=6 1 61 


> 1 78 




9NE 


t o d d o n p 

■ W L/ W V l ■ V 


jreloger l'adresse table 










> 1 79 


















) 1 80 








| Se souuenir qu''apres JSR ML1 










> 181 








1 on doit trouper j 










> 182 








{ DFB code k ex^cuter 










> 183 








; DA adresse table paramfctres 


6 1 4B ! 


A0 


00 




> 184 


snotMLl 


LDY 


£8 




614D: 


Bl 


3C 




> 1 85 




LDA 


(R AD ,Y 


; Opcode 


614F: 


48 






>186 




PHA 






6150 s 


2? 


03 




>187 




AND 


£X0008001 1 


;A= 8 12 3; Offset 


4152: 


A3 






> 1 88 




TAY 




■ dans 1 ''octet de la table 


OA J J « 


68 






> i 89 




PLA 






A 1 C 1<1 i 


TT1 






r 1 7 w 




1 QP 
L Of\ 




I n-Urv/ £ 




(1 A 






) 1 9 1 




LOR 






61 56 : 


AA 






> 1 92 




TAX 






61573 


BD 


AC 


68 


> 1 93 




LDA 


fiPTABL F X 


■rnntient lonouour 4 oucods s 


615A: 


88 






> 1 94 


: op 1 up 


DEY 






6 1 5 B : 


30 


04 


=6161 


>195 




BMI 


: opdone 


;0n a pouss4 & droite les 2 bits 


615D: 


4A 






) 196 




LSR 




;represen tan t la longueur 


6 1 5E : 


4A 






M97 




LSR 




jde 1 ' i nstruc t i on 


61 5F : 


D8 


F9 


=615A 


>198 




BNE 


: op 1 up 


;Si A=8 , ne branche pas 










>199 








;0p6rande de longueur nulls 










>288 








; Attention, Y est indetermin^ 


6161 : 


29 


03 




>2G 1 


: nndorip 


AND 




* I q n 1 o 1 mi 1 nnnii dmp 

j J 3U I ? 14 1 1 J m y U P U i 


6163: 


AA 






>20 2 




TAX 






6164: 


A0 


60 




>28 3 




LDY 


£ 


"1 £ U R 1*' 1 nHi f or*nv i n 3 f i Tin 
| Lc Vc 1 1 II Ur Ir 1 fit 1 II a I i ufl 


6166: 


E8 


82 




>20 4 




CPX 


£3-1 




6168: 


vi- 


05 


=616F 


>285 




Rrr 

DLL 


• i*Ti r~i 1 1 i w 1 

■ mo v i t i 


| on ne change pas les 










> ?fl A 








; i nstruc t i ons de 1/2 octets 


61 6A: 


ce 






>?0 7 




1NY 




; - > Y-i 


61 6B : 


20 


9C 


61 


>208 






Li nnr 'I LT I 1 




6I6E: 


86 






>209 




DEY 




; - > Y=8 










> 2 1 9 


• rnnu i t 1 






i it i a— Longueur operanoe ^0,1 t z.' 


616F: 


20 


C3 


61 


>21 1 




JSR 


COP I E 


; Cop 1 e 1 ' 1 nstruc t i on 


61 72 : 


90 


88 


=612C 






BL L 


: P e 1 oc 1 


; 3 1 t K_H 1 i V k R_A2 J 










> 21 3 


















> 2 1 4 


















>215 


:mov2? 


DQ 


HASADR5 












>216 




BCC 


* I1IU V J T 


orancne pas si caoie Raresses 










> 2 1 7 




L_ \ ' L_ 






6174: 


B8 


1 2 


= 61 88 


>218 




DL J 


■ m n 1 1 T ^ 


;Branche si pas de table Adresses 










> 21 9 




FIN 












5 229 


# 
















> 221 










6176: 


A9 


38 




>222 




LDA 


£ <ENDADRS-1 


■Fin de table d'adresses 


61 78 : 


85 


3E 




>223 




STA 


R A2 




61 7A * 


A9 






) 224 




LDA 


£ >ENDADRS-1 




61 7C • 

O 1 « Ij ■ 


85 


3F 




> 225 




STA 


R A2+1 












>226 


















>227 


: r e 1 oc 2 






s 1 c i Y— 


*1 7F ! 


£.0 


9P 


Al 
I 


i 77P. 






CHANG IT' 












'it' 










A 1 1 • 
Old: [ 


AT 

nt 


a 1 
O J 






.mo v i t ^ 




f?- 1 

t £ X 




6183: 


28 


C3 


61 


>231 




JSR 


COPIE 




6186: 


90 


F6 


=617E 


>232 




ecc 


:reloc2 


jsi I'on n^a pas fini la table 










>233 


















>234 


*~« 
















>235 


:mov3? 


DO 


HAS DATA S 




6188: 


98 


08 


=6195 


>236 




BCC 


: ex i t 


;Ne branche pas si table DATAs 










>237 




ELSE 







/ PACE SI / - 



- / Yvan tCQEMIG — PONTES / 



618A: A5 86 

618C: 85 3E 

618E: A5 87 

6199: 85 3F 

6192: 20 2C FE 

6195: 28 CE 61 



ZEND 
A 2 

.ZEND+1 
A2+1 



RJIOWE 
PROTECT 



619B: 60 



6199: 6C FD 99 




619C: A5 06 

619Es Dl 3C 

61A0: C8 

61A1 : A5 97 

61A3: Fl 3C 

61A5: 98 1A =61C1 

61A7: 88 

61A8: A5 94 

61AA: Dl 3C 

61AC: C8 

61AO: A5 85 

61AF: Fl 3C 

61 Bl : B9 0E =61C1 

61B3: 88 
61B4; Bl 3C 
61B6: 65 82 
61B8: 91 3C 
61BA! C8 
6188: 81 3C 
61B0: 65 83 
61BF: 91 3C 

61C1: 88 
61C2: 69 



61C3: Bl 3C 
61 C5: 91 42 

— / PACE 52 / ' 



>238 BCS :exit 

>239 FIN 

>2 40 # 

>241 

>242 LDA 

>243 STA 

>244 LDA 

>245 STA 
>246 

>247 J5R 

>248 :exit JSR 
>249 

>259 * 

>251 DO IN I ROUT 

>252 NOP 

>253 ELSE 

>254 RTS 

>255 FIN 

>256 * 

>257 

>258 JMP 
>259 
>268 

>261 * 

>262 * 

>263 * 

>264 * 
>265 

>266 CHANOIT? 

>267 LDA 

>268 CMP 

>269 I NY 

>278 LDA 

>271 SBC 

>272 BCC 
>273 

)274 DEY 

>275 LDA 

>276 CMP 

)277 INY 

>278 LDA 

>279 SBC 

>288 BCS 
)281 

>282 DEY 

)283 LDA 

>284 ADC 

>285 STA 

>286 INY 

>287 LDA 

>288 ADC 

>289 STA 
>290 

>291 :*nd DEY 

>292 RTS 
>293 
>294 
>295 

>296 COPIE LDA <R_A1),Y 

>297 STA <R_A4),Y 



;Branche si pas de table DATAs 



de table de ualeurs 



<R INDIR) :Execute si INIROUT = 1 



R_ZEND 
■R_A1) t Y 

R_2END+1 
(R_A1> ,Y 
send 



R_ZBE6 
<R_Al) t Y 

R_ZBEG+1 
(R_A1) ,Y 

: end 



CR_A1) »Y 
R_OFFSET 
CR_A1),Y 

<R_A1) ,Y 
R_uFFSET+ i 
<R_A1) ,Y 



;Pas de changement 



;Pas de changement 
: I c i C=B 



jAjuste 

: 1'adresse 



jCop i e X+l oc tets 
;a leur destination 



/ Ywan KOmmc — pontes / — ■ 



<41C7: 


28 


84 


FC 


>298 




JSR 


R_NXTA4 


61CA: 


CA 






>299 




DEX 




* 1 C 8 i 


ie 


F6 


=61 C3 


>308 




BPL 


COP IE 


41 CD: 


66 






>301 
>302 




RTS 












>383 














>384 
















>305 


PROTECT 


DO 


PROTEGE 










>306 




NOP 


;0n protegera 










>307 




ELSE 




61CE: 


68 






>308 
>389 
>318 




RTS 

FIN 


jOn ne protegera pas 


61CF: 


AS 


05 




>311 




LOA 


R_ZBE6+1 


6101 i 


18 






>312 




CLC 




61D2: 


65 


02 




>313 




ADC 


R_QFFSET 


61D4: 


AA 






>314 




TAX 


;(Haut) plus basse page utMisee 


61D5: 


18 






>315 




CLC 




61D6: 


6? 


82 




>316 




ADC 


£ LAST -PROGRAM/*! 80+1 ;Nornbre de pages 


61D8: 


85 


43 




>31 7 




STA 


R_A4+1 ;<Haut) page suivant la routine 


61DA: 


8A 






>318 


: 1 oop 


TXA 




41 OB: 


48 






)319 




Phtt 




61DC: 


4A 






)328 




LSR 




61DD: 


4A 






>321 




LSR 




61DE: 


4A 






>322 




LSR 




61 DF; 


A8 






>323 




TAY 




61 E9 : 


8A 






>324 




TXA 




dlEl : 


29 


87 




>325 




AND 


£7 


61E3: 


AA 






>32<S 




TAX 




61E4 : 


A9 


08 




>327 




LDA 


£8 


61E6: 


38 






>328 




SEC 




61E7; 


6A 






>329 


:L 


ROR 




61E8: 


CA 






>338 




DEX 




61E9i 


18 


FC 


=61E7 


>331 




BPL 


iL 


61EB: 


1? 


58 


BF 


>332 




ORA 


BITMAP ,Y 


61EE: 


99 


58 


BF 


>333 




STA 


BITMAP ,Y 


6 I F I : 


68 






>334 




PLA 




61 F2: 


AA 






>335 




TAX 




61F3: 


E8 






>336 




INX 




61F4: 


E4 


43 




>337 




CPX 


R_A4+1 


61 F6 ; 


98 


tz 


— 61 DA 


>338 




BCC 


: 1 oop 


61FB: 


68 






>339 
>348 
>341 




RTS 
ERR 


*- 1/46288 


61F9: 


80 


80 


88 80 


>342 




DS 


46288-* jRemplissage 


61FD: 


08 


00 


00 


>343 
















>344 






























>345 


PROGRAM 




jControler d£but de page 










65 




PUT 


FLOAD 



>1 ; ORG 49E 

>2 a******************************* 

>3 * ♦ 

>4 * FLOAD . S * 

>5 ♦ * 

>6 * Yvan KOENIG le 23/01/88 * 

>7 *#***###*»******#***»#«**##***«# 
>8 TR ADR 

=081B )9 ESC = flB 

>18 



/ PACE S3 / — 



/ YVtm KOEMIC — PONTES / 







=8086 


>U 


Ptr 


- 


$86 ;&B7 Pomte /tampon -font* 






-6008 


>12 


SauY 


= 


*88 






-90 0? 


> 1 3 


CntK 




♦89 








>14 












=0036 


)15 


csto 




*36 j&37 






=6060 


M6 


STREND 




*<SD ;4t6E Haut zone variables 






=0B6F 


>17 


FRETOP 




*6F ;478 Bas zone chains 






=6073 


>18 


H1MEM 




*73 :&74 






=60B? 


>19 
>20 


CHRGOT 




*B7 








>21 








=8801 


>22 


SERIAL 


KBD 


" SERIAL <l=Se>ie 0=Para11ele ) ■ 






=8001 


>23 


APPLE 


KBD 


"APPLE (l=Apple 0=Epson ) " 








>24 










>25 








6200 i 


4C 


IE 62 


>26 


DOSENTRY 


JMP 


PARSE 








>27 


NEXT CM D 






6203: 


4C 


9E BE 


>28 


D0SEX1T 


JMP 


XRETURN 


6296 : 


4C 


58 FF 


>29 


AMPEXIT 


JMP 


IORTS 








>30 








6209 f 


D0 


FB =6206 


>31 


AMP ENTRY 


BNE 


AMPEXIT 


620B : 


A0 


08 


>32 




LDY 


£8 


6200: 


B9 


AE 63 


>33 


: I 


LDA 


CMDNAME , f 


6219 : 


20 


ED FD 


)34 




JSR 


CQUT 


6213; 


C8 




>35 




1NY 




6214: 


C0 


19 


>36 




CPY 


EAMPEND-CMDNAME+1 


6216: 


99 


F5 =628D 


>37 




BCC 


: t 


6218: 


20 


B7 60 


;38 




JSP 


CHRGOT 


6218: 


F0 


E9 =6286 


>39 




BEQ 


AMPEXIT 








>48 








621 D: 


EA 




>41 


I DBYTE 


HEX 


EA \ Proviso ire 








>42 














>43 


#*#**###**#*#*#*#**##*********#* 








•44 








621E: 


A2 


05 


>45 


PARSE 


LDX 


£CMDEND- CMDNAME 


6228: 


BD 


FF 01 


>46 


si 


LDA 


IN-1 ,X 


6223: 


29 


DF 


>47 




AND 


£*DF 


6225 i 


5D 


AD 63 


>48 




EOR 


CMDNAME- I ,X 


6228: 


38 




>49 




SEC 




6229: 


D8 


08 =6203 


>50 




BNE 


DOSEXIT 


622B : 


CA 




>51 




DEX 




622C: 


D8 


F2 =6228 


>52 




BNE 


:1 


622E: 


8E 


53 BE 


>53 




STX 


XCNUM ; X=0 


6231 : 


A9 


04 


>54 




LDA 


£ CM D END- CMDNAME -1 ; Longueur 'commande' 


6233: 


8D 


52 BE 


>55 




STA 


XLEN 


6236: 


A* 


81 


>56 




LDA 


EX18086001 


6238: 


8D 


54 BE 


>57 




STA 


PBITS \ 11 faut 1 pathname 


623B: 


A9 


84 


>58 




LDA 


£7.10000108 


623D: 


8D 


55 BE 


>59 




STA 


PBITS+1 ; Autorise A, S, D 


6240 : 


A9 


4D 


>68 




LDA 


£ <TrueCMD 


6242 : 


8D 


50 BE 


Y6t 




STA 


XTRNADDR 


6245 : 


AD 


47 62 


>62 




LDA 


HIBIT 






=6247 


>63 


HI BIT 




*-l ; C'est 1 'octet haut de TrueCMD 


6248: 


80 


51 BE 


>64 




STA 


XTRNADDR+1 


624B: 


18 




>65 




CLC 




624C: 


60 




>66 




RTS 










>67 














>68 










>69 














>78 


TrueCMD 







/ PACES* / 



624D : 


AD 


56 


BE 


>71 




LDA 


FB1TS 


6258: 


4A 






>72 




LSR 




6251 : 


90 


08 


=625E 


>73 




BCC 


I nuil i He 


6253: 


AS 


70 




>74 




LDA 


FRET0P+ 1 


6255: 


E5 


6E 








cor 

DDL 


CTOCMrtl 1 

a 1 KfcWJ* l 


6257 : 


E9 


89 




>76 




SBC 


£7*1+1 










>77 
















>78 








6259: 


B0 


87 


-6262 


>79 




BCS 


GOGET 










>B0 








6258: 


A9 


8E 




>81 




LDA 


£*8E 


0£JV i 


£L 






>82 




HEX 


2C 


X9KC . 




D D 
D 




>o3 


I nval t de 


LDA 


£*BB 


6260 ; 


38 






>84 




SEC 




a&oi '. 


J ft 






■^85 




RTS 




6262: 


A9 


0A 




,Zi 
>87 


GOGET 


LDA 


£$0A 


6264 : 


8D 


B4 


8E 


>88 




STA 


SSGINFO 


6267: 


A9 


C4 




>89 




LDA 


£*C4 


6269: 


20 


70 


8E 


>98 




JSR 


GOSYSTEM 


626C ! 


80 


4B 


=62B9 


>91 




BCS 


CI osERR 










>92 








626E: 


AD 


68 


BE 


>93 




LDA 


FIF1LID 


6271 : 


C9 


86 




>94 




CMP 


£$66 


6273: 


D0 


42 


=6287 


>95 




BNE 


typeMISS 










>96 








6275: 


A2 


ei 




>97 




LDX 


£1 


6277: 


AD 


57 


BE 


>98 




LDA 


F81TS+1 


627A: 


10 


B8 


= 6284 


>99 




BPL 


:set type 


627C: 


AD 


58 


BE 


>100 
> 1 8 1 


: ge tadr 


LDA 


VADDR 


627F s 


29 


07 




> l 02 




AND 


£*87 


6281 : 


F0 


61 


=6284 


> 183 




BEQ 


:se ttype 


6283 : 


AA 






>1 04 




TAX 












> 165 








6284 : 


8E 


BC 


63 


> 1 86 


: se t type 


STX 


OurSlQt 










> 107 








6287: 


A4 


74 




> 1 68 


: se tbuf 


LDY 


I r t k A f* k A ■ ■ 

HIMEM+ 1 


6289 ; 


8C 


CF 


BE 


> 1 89 




STY 


0SYSBUF+ 1 


628C : 


A9 


CB 




> 1 1 




LDA 


£$C8 


628E: 


20 


70 


BE 


>Hl 




JSR 


GOSYSTEM 


6291 : 


80 


26 


-62B9 


>l 12 




BCS 


CI osERR 


6293 : 


AD 


D0 


BE 


> 1 1 3 




LDA 


OREFNUM 


6296; 


80 


D6 


BE 


>l 14 




STA 


RWREFNUM 


6299 : 


8D 


DE 


BE 


>1 15 




STA 


CFREFNUM 


629C : 


8D 


C7 


BE 


>1 16 




STA 


SUN1TNUM 


629F: 


A9 


Dl 




>1 17 




LDA 


£*D1 


62A1 : 


20 


76 


BE 


>i is 




JSR 


GOSYSTEM 


62A4; 


88 


13 


= 6289 


)1 19 




BCS 


ClosERR 










) 1 28 








62A6: 


AD 


CA 


BE 


J 121 




LDA 


SE0F+2 


62A9: 


D0 


0C 


=6287 


M22 




BNE 


typeMISS 


62A8 : 


AD 


C8 


BE 


> 1 23 




LDA 


SEOF 


62AE: 


C9 


C6 




>124 




CMP 


£<1734 


62B0 l 


AD 


C9 


BE 


>125 




LDA 


SEQF+1 


6283 : 


E9 






) 1 26 




SBC 


t } 1 734 


62B5: 


98 


09 


=62C8 


>127 




BCC 


f i 1 eok 










>128 








62B7: 


A9 


8D 




>129 


typeMISS 


LDA 


£*0D 


62B9: 


48 






> 1 36 


ClosERR 


PHA 





/ wan Ktmmtc — fomtcs / 

A-t-on specific 

un nom de f t ch i er ? 

NON 



OK, C=l 

II -faut au moins 7 pages libres 
7+1 car STREND pas garanti XX00 
7+1 + 1 pour simplifier le test 
assez de place 

PROGRAM TOO LARGE 

Saute instruction suivante 

INVALID PARAMETER 



GET INFO 



===== GET INFO font 



Erreur ProDOS 



BIN -> 



; Slot 1 par d£taut 

I On n'a pas donne A(notre Slot Imp) 

; R^cupere 

; si 8 , slot 1 



ut i 1 i ser GP buffer 
OPEN 



OPEN file 



erreur 

n urn ref filel 



pour get eof 
GET EOF 

=========== GET EOF fonte 

erreur 



? ce nest pas pour nous 



; FILE TYPE MISMATCH 

- / PACE 55 / 



- / Wan KOENIC — PONTES / 



62BA: 20 67 63 

62BD: 6 3 

62BE: 38 

62BF: 60 

62C9; AD C8 BE 

62C3i 8D D? BE 

62C6: AD C? BE 

62C9: BD DA BE 

62CC: A4 6E 
62CE: A5 6D 
62D9: F9 91 =42D3 
62D2; C8 
6203 i 8C D8 BE 
62D6: 84 87 
6208; A? 98 
620A: 80 07 BE 
62D0: 85 06 
62DF: 85 8? 

62E1: A9 CA 

62E3: 29 79 8E 

62E6: BB Dl =62B9 

62E8: 2a 67 63 



62EB: AD 8C 63 
62EE: 99 C8 



62FB: 8D 89 63 

62F3: 8D 8B 63 

62F6; 3D 1 1 63 

62F9: 80 56 63 

62FC s 9A 

62F0: 6A 

62FE: 0A 

62FF: 9A 

6369; 8D 88 63 

6393: 18 

6304; 69 8A 

6396: 80 5E 63 



> 1 31 

> i 32 
>133 
M34 

> 135 
>136 
>137 

> 1 38 
>139 
>149 

> 1 4 1 
>142 
>143 
>144 
>1 45 
>146 
>147 
>148 
>149 
>15B 

> 1 51 
>152 
>153 
>154 
>155 
>156 

>137 
>158 
>159 
M69 
>161 
>162 
>163 
>164 
>165 
>166 
>167 

> i 68 
>169 
M79 
>171 
>172 
>173 
>174 
>175 
)176 
>177 
>178 
>179 
>189 

> 1 8 1 

> 182 
>183 
>184 

> 185 

> 1 86 
>187 
>188 
>189 
>199 



* i leoK 



JSR 
PLA 
SEC 
RTS 

LDA 
STA 
LDA 
STA 



LDY 
LDA 
BED 
I NY 

snoinc STY 
STY 
LDA 
STA 
STA 
STA 

LDA 
JSR 
BCS 
JSR 



DOCLOSE 



SEOF 
RU COUNT 
SEOF+1 
RVJCOUNT+1 

STREND+ I 
ST REND 
:no i nc 

RWDATA+l 

Ptr+1 

£9 

RUIDATA 

Ptr 

CntH 

£*CA 

60 SYSTEM 
CI osERR 
DOCLOSE 



; Iinplante tampon lecture 

; au-dessus zone des variables 



; READ -File 



* Prepare routine de Chargement 

; A= Cs 



LDA 
OR A 



OurSlot 
£*CB 



SERIAL 



STA 
STA 
STA 
STA 
ASL 
ASL 
ASL 
ASL 
STA 
CLC 



STA 



GOCARD+2 
vec tor+2 
wh i chl+2 
which2+2 



Yslotl6+l ; A= sB 

£*8A 
reset+l 



ELSE 



STA 
ASL 
ASL 
ASL 
ASL 
CLC 
ADC 
STA 

JMP 

DS 



wai t+2 



£*88 

send i t + 1 

: su I te 
9, SEA 



; Rempl issage 



— / PACE SB / 



/ wan Kaemie — pontes / 











V 1 1 
/ 1 T 1 

\ 1 OO 


: su i X e 














% 1 o 

/ 1 TJ 
















/ 1 TH 
























OJi! r i 


nJ 


3A 

JO 




/ 1 TO 




L Urn 


raj 


i ... a □ , 
OJaD i 


4P 






V 1 97 

/ 17 f 




i rti 




x i a r i 


P1J 


37 




> 1 9P, 










49 






> 1 99 




PHA 




























>7ft 1 




















uu 












/ ZtJ J 








638 F s 


AD 


1 1 


L i 


>2B4 


wh i cn 1 


■ F\ A 

LL>H 


$C1 I l r adresse ajust#e 


631 2 : 


C9 


85 




>265 




CMP 


£*85 f est-ce une SSC ? 


6314s 


D8 


08 


=63 IE 


>286 




BNE 


i n i t 


6316 : 


A9 


09 




>207 




LDA 


£9 ( restaurs Ctrl -I au cas 


6318 : 


AC 


BC 


63 


>2oB 




LDY 


Uurb I ot 


6 J I □ . 


OO 

77 


CO 
PO 


a*s 


\ooo 




OTA 

bin 


»JPB i T 


631 k : 


H0 


a r\ 
VD 




/2l o 


inn 


1 rsv 
LL> T 


Man 
t*0U 


03C0 I 


OO 


ft 


OJ 


V) 1 1 
S£l 1 




f CD 
Jon 


ft; n n/H DPt ■ i n i ^ i ^1 i ca Cin pnj >i 3 r* a w 










>21 2 
















>213 




ELSE 












>214 
















>215 




JMP 


:sui t2 










>216 




DS 


17 f *EA 










>217 


:su i t2 














>218 
















>219 




FIN 












>22fl 
















>221 
















>222 




— ENYQYER PROLOGUE 










>223 








6323; 


A0 


EA 

urn 




>224 




LDY 


£prol og-prol end 


6325* 

O -J £. J • 


R9 


A3 




' *. <- j 


■K 1 


LDA 


proltnd-il80,Y 




?fi 

£0 


or 




f CJlo 




JSR 


KOUT 


/ODE ■ 


La 










IKY 




632C : 


D0 


F ! 

F7 


=6325 


>228 




BNE 


:p 1 










>229 
















>230 


* 


- ENUOYER FONTE 










>231 








632E: 


A6 


80 




>232 




LDY 


£6 


6330 : 


B 1 


06 




>233 




LDA 


(Ptr) ,Y 


20,00 . 


-CO 


Or 


OJ 


/ £Jt 




JSR 


KOUT 


OOJ J ■ 


PA 
CO 


o a 




V73^ 




INC 


Ptr 


OOa' : 


ft A 
L'O 


a 1 




\ OOJ 




BNE 


:f2 


ad Jt . 


to 


a f 




\ OQ7 




INC 


Ptr + 1 


/■son . 


to 


a o 

07 




\ ooo 




INC 


CntH 


6330 : 


JVC 

HJ 


06 




V ooo 


. X o 

: fZ 


LDA 


Ptr 


L OOC ■ 


LU 


to 


lit 


v o j( a 
>240 




CMP 


SEOF 


6342: 


A5 


09 




>24l 




LDA 


CntH 


6344 : 


ED 


C9 


BE 


>242 




SBC 


SEOF+1 


6347: 


90 


E5 


=632E 


>243 




BCC 


:f 1 










>244 
















>245 


* 


-- ENUOYER EPILOGUE 










>246 








6349: 


Al 


F5 




>247 




LDY 


£ep i 1 og-ep i I end 


634B: 


B9 


AE 


62 


>248 


:tl 


LDA 


#p\ lend-f 108 f Y 


634E: 


21 


6F 


63 


>249 




JSR 


KOUT 


6351 : 


C8 






>250 




I NY 





/ PAGmST / — 



/ Wan KQMHIC — PONTES / 



6352: 


OB 


F7 


=6346 


>251 




BNE 


if 1 












>252 


















>253 


*====== 
















>254 




DO 


SERIAL 












>255 












AD 


11 


CI 


>256 


wh i ch2 


LDA 


*C1 11 


; adresse ajuste> 


6337 s 


C9 


85 




>257 




CMP 


£*85 


j est-ce une SSC ? 


6359: 


db 


85 


=6368 


>258 




BNE 


ex i t 


; NON 


635B: 


A9 


88 




>259 




LDA 


£8 


j faire croire a Reset 


635D: 


8D 


9A 


C8 


>268 


reset 


STA 


*C88A+*1 8 


; adresse ajustee 










>261 


















>262 




ELBE 














>263 


















>264 




JMP 


:sui t3 












>265 




DS 


9,*EA 












>266 


:su i t3 
















>267 


















>268 




FIN 














>269 







— i. 












>2?e 










6368: 


68 






>271 


exit 


PLA 






6361 : 


85 


37 




>272 




STA 


CSW+1 




6363: 


68 






>273 




PLA 






6364: 


85 


36 




>274 




STA 


csu 




6366: 


60 






>275 




RTS 














>276 


















>277 


#===== 


===== 


— -=^= — — 












>278 










6367: 


8D 


OE 


8E 


>279 


DQCLOSE 


STA 


CFREFNUM 




63 6A: 


A9 


cc 




>288 




LDA 


£*CC 


j CLOSE 


636C: 


4C 


78 


BE 


>281 




JMP 


GQSYSTEM 












>282 


















)283 


















>284 










636F: 


88 






>285 


KOUT 


PHP 






6378: 


78 






>286 




SEI 














>287 



















>288 




DO 


SERIAL 












)289 


# — 








6371 j 


84 


88 




>298 




STY 


SavY 




6373: 


48 






>291 




PHA 






6374: 


A8 


BF 




)292 




LDY 


£S8F 


; WRITE 


6376: 


28 


7£ 


63 


>293 




JSR 


GOCARD 




6379: 


68 






>294 




PLA 






637A: 


A4 


88 




>295 




LDY 


SavY 












>296 


















>297 




ELSE 














>298 


* — 

















>299 


wa i t 


BIT 


*C1C1 


: Octet haut ajuste 










>388 




BMI 


wa i t 












>3B1 


send i t 


STA 


■IC898 


i Octet bas ajuste' 










>3B2 




DS 


3,*EA 












>383 


















>384 




FIN 














>385 


*====== 








637C: 


28 






>386 




PLP 






63 7 D : 


68 






>3B7 




RTS 














>3B3 


















>389 






— — — i — i—— _ _ 












> 31 a 











/ PACE5B / 



637E: 
6381 : 
6384: 
6387: 
6389: 



639D: 
63A1 : 



63A3: 
63A7: 



BE 86 CI 
8E 8A 63 
AE 80 63 
A* 10 
4C 00 CI 



638C: 00 



638D: 
638E: 
638F: 



6393: 
6397; 
639Br 



63A8; 
63AC: 



63AE: 
63B2: 
6363: 
63B7: 
63C6: 



8D 
09 

32 35 34 4E 



IB 5A 06 28 
IB 5A 89 80 
09 5A 



80 00 00 00 

00 00 



IB 44 00 20 

3D 



06 00 00 00 
08 00 



C6 CC CF Ci 
C4 

A0 F0 El F4 
E8 AC A0 BC 
8D 

=63C6 
=63C7 



>3H 

>3I2 

>313 

>31 4 

>315 

>316 

>317 

>318 

>3\9 

>320 

>321 

>322 

>323 

>324 

>325 

>326 

>327 

>32B 

>329 

>330 

>331 

>332 

>333 

>334 

>335 

>336 

>337 

)338 

>339 

>340 

>34t 

>342 

>343 

>344 
>345 
)346 
>347 
>348 
>349 
)350 
>351 
>352 
>353 
>354 
>355 
>356 
>357 

>358 
>359 
>360 
>361 
>362 

>363 
AC CI 
>364 
>365 
>366 



/ Y V an KOMNIC — PONTES 



GO CARD LDX *C100,Y ; adresse ajuttet 

STX wector+1 

LDX 60CARD+2 ; Cslot 

Yslotl6 LDY £*IB 



vector JMP *C100 



; SI ot 16 
; adresse ajustee 




QurSlot DS 



1 



prolog HEX 
DFB 



8D 

9 

ASC "254N-' 



pas d'^cho 





DO 


APPLE 






DFB 
DFB 
DFB 


ESC/Z',0,32 
ESC/Z' ,$80 ,0 
9, '2' ; 


reconnait bits 
; pas de LF apres CR 
ZAP cmd 




ELSE 








DFB 
DFB 
DFB 


ESC/C ; 
ESC | : ' 1 1 1 
ESC,'&',0 j 


annul* -for gage du bits 
; copie 1 e jtu en RAM 
dtbut chargement 




FIN 







pro] end 

ep i 1 og 
* — 



*— 



DS 



DO 

DFB 
HEX 

ELSE 
DS 

FIN 

DS 



; Pour adaptations 



APPLE 

ESC/D',8,32 ; ignore bitB 
80 



; Pour adaptations 



ep i 1 end 



CMDNAME ASC "FLQAD" 

CMDEND ASC ■ path, < ,A slotimp)' 
A8 F3 EC EF F4 E9 ED F0 BE 
AMPEND HEX 8D 
LAST * *-i 
ENDALL « * 



/ P ACM 59 



i— / wan koenig — pontes / 





>347 












>368 

)369 




















v m V v 


>378 
>371 


IN 

All 


_ 


$8290 




=BE58 


>372 


XTRNAODR 


= 


*BE59 


{4BE51 


=BE52 


>373 


XLEN 


= 


$BE52 




=BE53 


>374 


XCNUM 


- 


4BE53 




-BE54 


>375 


PBITS 




4BE54 


j6eBE55 


=8E5<6 


>376 


FBITS 




SBE56 


5&8E57 


=BE58 


>377 


VADDR 


= 


*BE58 


5&BE59 


=BE78 


>378 


GOSYSTEM 


- 


*BE70 




=BE9E 


>379 


XRETURN 


m 


S8E9E 




= RFR4 


>380 


SSGINFO 


_ 


§BEB4 






>381 


FIFILI D 


_ 


SBEB8 




=BEC7 


>382 


SUN1TNUM 


= 


*BEC7 




=BEC8 


>383 


SEOF 




#BEC8 


;&BEC9,BECA 


=Rf CF 


>384 


OSYSBUF 


_ 


*BECE 


;&BECF 


-BED8 


>385 


OREFNUM 


_ 


$BED9 




— DlU O 




RWREFNUM 




*BED<4 




= BFD7 
o c r 


>387 


RUDATA 




*BE07 


;4BED8 


= BED9 


) 388 


RW COUNT 




♦BED? 


;&BEDA 


D L_ Li l_ 


>38? 
>398 


CFREFNUM 




tBEDE 




=FDED 


>39l 


COUT 




SFDED 




=FF58 


>392 


10RTS 




*FF58 


; RTS gar ant 




67 


a******************************* 




68 




DO 


DISK 






69 




SAV 


FLOAD 






78 




FIN 








71 


#****##♦#*#*##***#*#»*******#*** 




End Merl in~16 assembly, 
839 bytes, errors; 8 , 
symbol table: *1888-*1D28 



APPLE 




FUAD.A*688B,L»9347 



A9 92 29 F5 BE 99 
6BA8: D3 CI D9 A& Cl A8 
68C9: 15 14 68 28 84 15 
68EB : 15 14 88 28 85 15 
6199; 3C 65 84 A9 62 85 
6128: BE 38 E5 84 85 02 
6148: A8 88 A2 82 28 C3 
6168: F9 29 83 AA A8 88 
6168: 61 A2 81 28 C3 61 
61A8: C8 A5 87 Ft 3C 98 
61C8: 3C 88 68 Bl 3C 91 
61EB: 8A 29 87 AA A9 88 
6288: 4C IE 62 4C 9E BE 
6228: BD FF 81 29 DF 30 
6248: A9 40 80 58 BE AD 
6268: 3B 69 A9 8A BD B4 
6288: 97 F8 81 AA 8E 8C 
62A8: Dl 28 78 BE B8 13 
62C8: AO C8 BE 80 09 BE 
62EB; 89 A9 CA 28 78 BE 
6369: BD 88 63 IB 69 BA 
6329 ! 29 7E 63 A8 EA B9 
6348: C6 BE A5 99 ED C9 
6369: 6B 85 37 68 B5 36 
63B8: Cl BE 8A 63 AE 88 
63A9: 88 89 88 IB 44 98 
63C8 : EF F4 E9 EO F8 BE 

I— / PACE SO / 



65 A* 
D9 A7 
84 2A 
84 2A 
30 B5 
A5 43 
61 A9 
E8 82 
98 F6 
1A BB 
42 28 
38 6A 
4C 58 
AD 63 
47 62 
BE A9 
63 A4 
AD CA 
AD C9 
B8 Dl 
8D 5E 
A3 62 
BE 98 
68 BD 
63 At 
28 8D 
BD 



16 B9 


95 


68 28 


ED 


FO 88 


19 F7 4C 


88 BE 80 


97 


C5 


C3 Cl 


CC 


D9 


A8 


C5 


C4 




CE A8 


CC 


C9 84 


15 


84 2A 


85 14 9B 


2A 16 15 


14 


2A 


15 15 


BB 


2A 


94 


15 


84 


2£ 


15 15 


88 


2A 15 


13 


88 2A 


15 15 88 


2A 15 15 


84 


2A 


85 15 


83 


2P 


85 


15 


14 


2A 


15 14 


88 


28 B5 


43 


AE 9B 


BE 8E 85 


62 BD 88 


BE 


AE 


87 BE 


8E 


84 


62 


A9 


68 


65 


85 A9 


BB 


85 3E 


A9 


63 85 


3F A? C6 


35 86 A 9 


63 


65 


87 D8 


A9 


99 


85 


42 


SO 


87 


E5 85 


85 


83 A8 


98 


Bl 3C 


C9 2B D9 


17 C8 Bl 


3C 


D8 


12 C8 


Bl 


3C 


C9 


BF 


H 


ee 


82 08 


16 


A9 88 


Bl 


3C 46 


29 83 A8 


6B 4A 4A 


AA 


60 


AC 68 


88 


38 


84 


4A 


4A 


N 


98 85 


C8 


29 9C 


61 


BB 29 


C3 61 99 


B8 B8 12 


A9 


86 


85 3E 


A9 


63 


B5 


3F 


28 


K 


99 86 


A5 


86 85 


3E 


A5 97 


85 3F 29 


2C FE 28 


CE 


61 


68 6C 


FD 


8B 


A5 


96 


Dl 


3C 


AS 84 


01 


3C CB 


A5 


85 Fl 


3C B8 8E 


88 81 3C 


65 


82 


91 3C 


C8 


Bl 


3C 


65 


83 


9] 


84 FC 


CA 


18 F6 


68 


69 A5 


95 18 65 


92 AA 16 


69 


82 


85 43 


8A 


46 


4A 


4A 


4A 


AS 


CA 18 


FC 


19 5B 


BF 


99 58 


BF 68 AA 


EB E4 43 


98 


E2 


68 98 


ee 


98 


98 


88 


li 




FF OB 


FB 


M 88 


B9 


AE 63 


28 ED FO 


C8 C8 19 


98 


F5 


28 87 


88 


F8 


E9 


EA 


A2 


85 


38 08 


08 


CA 08 


F2 


8€ 53 


BE A9 84 


8D 52 BE 


A9 


81 


80 54 


BE 


A9 


84 


80 


55 


BE 


80 51 


BE 


18 68 


AD 


56 BE 


4A 98 8B 


A5 78 E5 


6E 


E9 


89 B8 


87 


A9 


BE 


2C 


A9 


86 


C4 28 


78 


8E B8 


4& 


AD B8 


BE C9 86 


08 42 A2 


81 


AD 


57 BE 


18 


98 


AO 


58 


BE 


25 


74 8C 


CF 


BE A9 


CB 


28 78 


BE 89 26 


AO D9 BE 


8D 


06 


BE BD 


DE 


BE 


BD 


C7 


BE 


a* 


BE 08 


8C 


AD C8 


BE 


C9 C6 


AD C9 8E 


E9 86 98 


B9 


A9 


90 48 


28 


67 


63 


68 


3B 


68 


8E 80 


DA 


BE A4 


6£ 


A5 6D 


F9 81 08 


6C 08 BE 


84 


87 


A9 88 


80 


07 


BE 


65 


96 


BS 


28 67 


63 


AD BC 


63 


89 C8 


80 88 63 


BO 88 63 


BD 


11 


63 BD 


56 


63 


9A 


8A 


8A 


BA 


63 A5 


36 


48 A5 


37 


46 AD 


11 Cl C9 


65 08 96 


A9 


89 


AC 8C 


63 


99 


F& 


95 


A8 


ID 


28 6F 


63 


C8 08 


F7 


AB 98 


Bl 86 28 


6F 63 E6 


86 


N 


84 E6 


97 


E6 


19 


A5 


B6 


CD 


E5 A8 




B9 AE 


62 


28 6F 


63 CB 08 


F7 AD 11 


Cl 


C9 


85 D8 


95 


A9 


ee 


80 


9A 


Cl 


OE BE 


A* 


CC 4C 


78 


BE 88 


78 84 88 


48 A8 9F 


29 


7E 


63 68 


A4 


98 


26 


68 


BE 


11 


18 4C 


&& 


Cl 88 


BD 


89 32 


33 32 4E 


16 5A 98 


29 


IB 


5A 89 


BB 


B? 


5A 


9-9 


99 


II 


88 98 


BE 


88 88 


II 


C6 CC 


CF Cl C4 


A8 F8 El 


F4 


E8 


AC A8 


BC 


AC 


Cl 


AB 


F3 


EC 



7B3C 
6276 
9E9B 
AF13 
7551 
3?CC 
9A5! 
CE24 
EE61 
843D 
FABA 
EA5B 
7BBD 
7C10 
1949 
BC6D 
8425 
FC59 
0715 
57F4 
1F4D 
C327 
48 2E 
8310 
A8F2 
EC33 
F4F4 



/ COURRIMR — Wan KCENIG / — 



sw r Apple lies 



Depuis huit mois, je me pose bon nombre de questions 
sur I'Apple HGS. J'ai lu beaucoup d articles dons diverses 
revues (Tremplin Micro, bien sur, mais aussi dans 
POM'S et I'Ordinateur tndividuef), mais je ne suis pas 
tellement plus avance\ 

Dans un article paru dans I'O.I., N. Breaud-Pouliquen 
ecrit : «On pourrait envisager de le termer (il s'agit du 
GS) com me le Ik et de le rendre beaucoup plus rapide». 

Premiere question ; 

— Comment fermer mon Apple HGS ? 

L'auteur du meme article evoque ensuite I'existence de 
cortes permettant I'extension jusqu'a 8 Mo de RAM et 
f 'implantation de modules de ROM eventueihment 
reprogrammable*. 

Deuxieme question : 

— Ou me procurer ces accessoires (mon concession* 
naire, interroge, me repond que j'aurais du moffrir 
un MAC) ? 

Dans lafoulee... 
Troisleme question : 

— Au cours de mes lectures, j'ai remarque que vos 
programmes chargeaient des fichiers binaires de 
dessin. Comment les creer ? 

Duatrleme question : 

— Peut-on installer des programmes dons la RAM 
abtenue par «Cat, S3,D2» ? 

Un drogvd du GS — M. N. (51350 Cormontrmull) 



REPONSE 



Je ne devrais pas vous repondre puisque vous avez amis 
de joindre un timbre d votre leftre. 

Cependant, votre flot de questions me donne ('occasion 
de donner mon avis sur des points sensible* : 

1. J'ai expliqu^ dans T.M. n°l7 comment souver un 
ecran SHGR dans un fichier BIN. Je n'y reviens pas. II 
faut savoir que e'est un mode de stockage decon- 
seille'. II est preferable d'utiliser les formats off i- 
ciels definis par APPLE (cf. article cite). La disquette 
qui accompagnait T.M. n°17 contenait en prime un 
programme permettant de cr6er, a partir d'images 
HGR ou DHGR, des images SHGR noir et blanc. 

2. Lorsqu'on travaille sous P6, on peut effectivement 
stocker des fichiers dans le disque virtue! /RAM en 



S3,D2. II peut etre utile de proteger certaines zones, 
mais j'ai deja traite la question dans Tremplin Micro. 
Attention ! certains auteurs emploient le banc 01 
comme tampon lors du ehargement d images SHGR, 
ce qui est fort desagreable pour /RAM qui utilise 
justement ce banc. 

Sous PI 6, je ne me suis jamais servi de /RAM car je pense 
que le banc 01 est utilise par ce systeme. N'oubliez pas que 
les bancs et I sont realises en RAM rapide, alors que le 
reste de la memoire est en RAM lente. 

1. Dans I'Ordinateur Individvel, Nicole Breaud-Pouliquen 
souhaite un GS ferme. Personnellement, je ne crains 
pas les courants d'air. 

Dans I'article que vous citez, elle dec rival t ce qui, 
selon elle, serait souhaitable pour une future ver- 
sion de la machine. Celle-ci existera sans doute, 
mais j'espere qu elle ne corresponds pas aux sou- 
ha its de Nicole... 

Quelques fobricants americains proposent des car- 
tes d'extension permettant deja I'instal lotion de 
ROMs, mais le systeme d'expbitation etont en per- 
petuelle evolution, je ne saurais conseiller cette 
formule. 

Je vous orienterais plus volontiers vers le trio suivant : 

• carte extension APPLE 1 mega 

• carte extension APPLIED 1 ,5 mega ou plus 

• carte 'alimentation permanente' RAM-KEEPER sur 
laquelle seront branchees les cartes sus- 
nommees. 

Vous auriez ainsi la possibility de travailler avec 
une memoire importante, un disque virtue! 'perma- 
nent', mais reprogrammable, ce qui vous permet- 
tralt de suivre revolution du systeme d 'exploitation 
et de vos besoins, Bien entendu, ce n est pas un 
ROMdisk au sens defini par les concepteurs du GS, 
mais, qui s'omuserait a les mettre en ROM, tant que 
les outiis ne sont pas stabilises? N'oubliez pas que 
certains outiis de lo nouvelle Rom sont reecrits pour 
moitie en Ram lors du boot. 

APPLE ouvre les MACS, Nicole veut fermer les GS, 
au secours J Marthe Richard revient > 

Yvan KOENiG — 6 Avfit 1988 



Bug dans systeme Pascal l* pascal 1.3 pre»nte un« 

incompatibility avec la nou- 
velle ROM du GS. Un oppel 6 un outil pendant une operation critique pwoque 
une erreur lors de I'ecriture sur disque. Si vous utilisez dons ce longoge des 
programmes traitont des donnees imporlantes (comptabilite, par exemple), 
contodaz d'urgence votre revendeur. II rrouvera conjhrmatwn du problems 
dons CALL APPLE d'avril, page IS, Avec un peu de chonce. il pourra obtenir 
d Apple France les informations lui permettant de mettre en place le PATCH 
indispensable ; un octet t changer dans SYSTEM, APPLE. Apple U.S. devroitdif- 
fuser un Pascal corrige fin ovril. y. jf. 



/ PAGE SI / 



— / coitRRiert—YwanKtmNiC / 



PRODOS.YEAR 



De nombreux utilisateurs des Vieux' modules 
APPLE 2 utilisent encore des vieilles versions de 
PRODOS. 5'ils disposent dune carie horloge 
THUNDERCLOCK ou assimilee, ils ont eu la sur- 
prise de remarquer que depuis le T' jcmvier 1988 
tours fichiers sent dales 1983 au lieu de 1988. 
Les lecteurs de Call A.P.P-LE. etaient prevenus 
depuis janvier 86, les autres ont eu I impression 
de rajeunir de 5 ans. 

Le petit programme BASIC joint (PRODOS.YEAR) 
vous donne la possibility d'actualiser votre fi- 



chier PRODOS atin qu'il date correctement 
jusquau 31/12/90. 

Si vous utilisez toujours un 'vieux' PRODOS en 
1990 il vous suffira de rempbcer les hgnes 2W 
et 210 par des REMs pour qu'une nouvelle execu- 
tion de PRODOS.YEAR vous permette de repartir 
correctement jusqu'au 31/12/95. 
Je tiens cependant a rappeler qu'il est souhaita- 
ble d'utiliser la version 1 .4 qui est en train d etre 
remplacee par la version 1 .5. 

Yvan KCENtG — 3 Avrii J 988. 



1 REM *##*###******** 

2 REM * PRODOS.YEAR * 

3 REM 

100 TEXT J HOME 

110 TI$ = " PRODOS" : REM "peut etre P8 
120 D$ = CHR* (4) 
130 PRINT D*" UNLOCK h TI$ 
140 PRINT D$ n BLOAD"TI$'\TSYS,A*2Q00" 
150 ADR » 4 * 4096 + 118 
160 IF PEEK (ADR> = 84 AND PEEK (ADR 
EX (ADR + 2) * 83 AND PEEK (ADR * 



+ 

3: 

+ 5) = 



1) = 84 AND PE 
= 82 AND PEEK 
86 AND PEEK (A 



(ADR + 4> * 87 AND PEEK < ADR 
DR + 6) = 85 GOTO 190 
170 ADR = ADR + 256: IF ADR > 6 * 

IS P^E ADR,90: POKE ADR * 1.89* POKE ADR i 
ADR + 3.88: POKE ADR + 4,87: POKE ADR + 

200 GOTO 270: REM "mettre REM en 1990 
210 GOTO 310: REM "mettre REM en 1990 
220 ADR = 4 * 4096 + 118 
230 IF PEEK (ADR> = 90 AND PEEK < ADR 
EK (ADR + 2> = 88 AND PEEK (ADR + 



4096 +118 GOTO 210 



5,86: POKE A 



+ 1) = 89 AND PE 
3) = 88 AND PEEK 



(ADR + 4) - 87 AND PEEK (ADR 
DR + 6) = 85 GOTO 260 

+ 256: IF ADR > 6 * 



5) = 86 AND PEEK (A 
4096 + 118 GOTO 310 



240 ADR = ADR 

IS £5 ADR.90: POKE ADR ♦ ^^^^V^ 
ADR + 3.93: POKE ADR + 4,92: POKE ADR + 5.92: POKE A 

DR + 6,91 
270 REM 

280 PRINT D$'BSAVE"Tir\TSYS,A*2000" 

290 PRINT DrLOCrTI* . mn 

300 PRINT : PRINT Modification ef ectue": R1NT .END 
310 PRINT : PRINT "Je n'ai rien rnodif 16 : fkini . cwu 



1C5A 
3FAC 
B3A4 
18F3 
AB9F 
73DA 



4C92 
2AE3 
3942 



6169 
4544 
273F 
73DA 



849D 
57E4 
2D40 



0955 

2DAE 
C650 
E2F8 
DFEF 



/ PACEB2 / 





/ DES LI V RES / — 



• LA BIBLE PC (Tischer) 

Avec le PCTronsporteur (voir le numero 19 
de TM J. vous pouvez mettre un compatible 
PC dons votre GS (et oussi dons un Apple //, 
datlleurs) 

Parfait ! mais que savez-vous du hardware, 
des interruptions, du MS-DOS, du BIOS... 
des differents Ion gages ? 

Quelle est la signification de choque bit des 
codes-clavier ? A quelle odresse se trouve 
fa memoire video de votre carte ? 

Cette grosse BIBLE K repondra 6 loutes ces 
questions et a beoucoup d'autres. C'est ur 
ouvroge de reference fondamentol de 760 
pages, sous couverture cartonnee (299 F TTQ. 

WOK) APPLICATION, 13 roe Sointe Cecil* 75009 PAHtS 









TRUCS ET 
ASTUCES 

PBOHTII A FOND 




DU O** t*UC 

Gift BASIC 







C tAUDi DtL A HN O Y 



APPRENDRE A 
PROGRAMMER 
EN TURBO C 



lEYHOLLES 



• APPRENDRE 

A PROGRAMMER 
EN TURBO C 
par C. Delonnoy 

L'objectif de ce livre est de vous conduire a 
lo rnoitrise du Turbo C Pour ce faire, il vous 
en propose un apprenfissage progress if lar- 
gement illustre ae programmes complets, 
accompagnes d'exemples d'execution. 

A la fin de la pJupart des chap it res, vous 
trouverez 6 la bis : 

• des exercices vous permettant d'oppli- 
quer et d'integrer les connaissonces 
acquises, 

• des manipulations destinees a develop- 
per en vous le "savoir-faire" indispensa- 
ble au developpement et a la mise au 
point de vos applications personnels. 

Cet ouvroge aborde I 'ensemble des pos si bi- 
llies du Turbo C, y compris eel les qui sont 
considerees comme les plus pointues et les 
plus prof essionnel les (pointeurs, gestion de 
fichiers, modeles memoire. recursivite, 
allocation dynamique, oppels systemes.. L 

d 16 pages -250F tdtticm EYPOUIS, 

61, boulevard Saint-Germain. ?5W PAPIS CEDFX 05. 



* TRUCS ET ASTUCES EN GFA BASIC 

Ce livre s'odresse aussi bien aux informoti* 
ciens confirmes qu aux neophytes, 

MICRO APPLICATION presente dans cet 
ouvrage les meilleurs trues et ostuces pour 
programmer graph ismes, fenetres et 
fichiers RSC en GFA BASIC. 
Le but de ce livre est d'aider I'utilisateur de 
ST a exploiter ou mieux ce longage, XBIOS, 
les routines GEMDOS, BIOS. 



PROGRAMMER 
EN QUKK BASK 



• PROGRAMMER 
EN QUICK BASIC 
par P. Bihan 

Le QUICK BASIC (TM) est un outil de haut 
niveau qui allie toutes les facilites de pro- 
grammation d'un Basic classique 6 la 
rigueur d'un longage structure. 

Ce livre vous propose un apprentissage 
"express* et tres efficoce : la premiere par- 
tie introduit toutes les options de Quick 
Basic, y compris son editeur ; les common- 
des principles du langage sont ensuite pre- 
sentees de facon synthitique mais detail- 
lee, convenant aussi bien au debutant qu'au 
progrommeur presse. 

Plus de 60 programmes commentes, des 
sections separees traitant de la gestion de 
fichiers, du graph isme, des commandes 
music ales, des directives de compilation... 
completed I ouvrage pour en faire un vrai 
guide pratique. 

2 16 pages - 1$QF Edition tYKUtS. 

61, boulevard Saint-Germain, 75240 PARIS CfPM OS. 



Principaux tufth traitts : Creation d un bureau 
person nalise (redessinez les i canes du Desk- 
top !) ; les fondions du TOS et le GFA BASIC, 
XBIOS, GEMDOS, BIOS, VDISYS, GEMSYS ; com- 
ment programmer les ressources en GFA BASIC 
; deplocei, agrandissez, modifiez les fene- 
tres... ; routines de graphisme (dessins en trois 
dimensions, representation de diagrammes 
Monhattan) ; un moniteur de disque entiere- 
ment en GFA BASIC ! ; espioniei la mimoire 
de votre ATARI ST et voyez directement 6 
I'ecran ce qui s'y passe ; comment fonctionne jo 
commonde Monitor (). mkxo application 
372 pages — livre ef disqverte d'utWtaires — 269 F 

/ PACK 63 / — 



/ BULLETIN DE COMMAND E ET D ABONNEMENT - N°20 / 

A retourner d . TREMPLIN MICRO — Swill* — 86 tOO CHATBUERAULT 

Norn Prenom • 

Adresse complete • • 

Code postal I 1 1 1 I 1 Ville 



if S DUQUETTES FOHCTIONNfNT SOUS DOS £T PraOOS Id condition dm pottmdmr unm vmrt'on Appl* 4* em SYSTEM f D'EXPLOITA TK>N) 





DESIGNATION 


PRIX UNIT AIRE 


TOTAL 




Abonnement £3 6 num^ros (un an) : FRANCE 

ft parti r du nvm4ro i 


190 F 






Abonnement 6 6 disquettes (un an) : FRANCE 

A pa rH r du num4ro : 


600 F 






AAINIE 

LE BUREAU DE MINI E 

LES SOURCES DU BUREAU _ 


Log iciels 


1BO F 
ISO F 




de Claude AUBRY 


SO r 






IIVRE : APPLE II PRODOS, GUIDE DU PROG R AMMEU R APPLESOFT 


1 *>n f 

1 jL\r ■ 






LIVRE : LE 6502 PAS di PAS 


1 7n f 
■ *w r 






LIVRE + DISQUETTE : CLINS D OEIL AU 6502 


160 F 






LIVRE + DISQUETTE : ROUTINES LM POUR 65C02 ET 6502 


160 F 






LIVRE + DISQUETTE : NOUVELLES ROUTINES POUR LE 65C02 


160 F 






LIVRE + DISQUETTE : PROGRAMMES LM 65C02 & 65C816 


1 t-.lt F 






LIVRE + DISQUETTE : A LA DECOUVERTE DU G5 BASIC 


300 F 






DISQUETTE DE JEU WAR 


20 F 






DISQUETTE DE JEU "Le Monde des Sorcleri" 


20 F 






DISQUETTE N°le + |eu "Le Monde des Sorciert " 


105 F 






DISQUETTE- INDEX (N°l 6 12) 


30 F 






SIGNATURE (CHECK-LIST) 


30 F 






RELIURE-ECRIN 


40 F 






SUPPORT POUR MONTAGE CARTE STEREO (quantity limits) 


30 F 






DISQUETTE DE TREMPLIN MICRO : * (We, tic, GS) 

□ N a l □ N°4 □ N*7 □ N»10 □ N*13 □ N°16 □ N°W 

□ N°2 □ N°5 □ N*8 □ N°11 □ N 9 14 □ N°17 □ N°20 

□ N*3 □ N*6 □ N"9 O N°12 □ N°15 □ N°18 


105 F 






NUMEROS DE DH*\ □ N°2 □ N°3 □ N 9 4 □ N*5 □ N°6 
TREMPLIN MICRO ; f QN'7 □ N*8 □ N'9 □ N a 10 □ □ N°12 
□ «°W ON°H nH'IS □ M°16 □ N°I7 □ IP1B □ N e 19 □ N°20 


30 F 




33 F 





- cochmi la (ou co*#(*) dm vorr. choi*. Supplement pou r d 1 squ ert e 3 A /I + 20 F 

Participation owx fralt denvol (gratuft pour le* abonnes) 4- 10 F 

Mercl do libeller votrt reflmnwrt a lordr* Envoi en paquet-po*«e r •commando a parflr do 400 F 

i. twmww micro / MM*, jikna. Nufn4ro d . oboiini ou d . : Total 6 poyer F 



Mode d* reglement choltl : 

□ Cheque 

□ Mandat-lettre 

□ Carle Bleue (tompt*»« ci-tontrt) 

— / PAGES* / 




N° d« votra Carl* Bleu* I — L 

Dot* d'*xpl ration L_L I L 

Monfent a d*bH*r 



l_L 



L_L 



Signature (obligatoire) 



Chcique mois, 
le meilleur 
de la 

technique 
et de la 
pratique 

photo ! 



